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MARKED BYTES USED 


FILE ABSTRACT TITLE BYTES FOR PROGRAM COMMENTS 
1 v 51/07-0102/0 GANTT CHART 1792 1537 Requires pre-MARKed 
2 и " 9472 9297 data files; requires 
3 " " 11264 11020 dedicated tape 
: 4 і ñ 19200 18891 
5 й " 768 33 
6 й ^ 1280 925 
7 გ " 6912 6740 
„78 51/00-0103/0 CAPITAL BUDGET 17152 17043 Automatically marks 
9 ы ს 768 3 data files; requires 
| dedicated tape 
Ло 51/00-5506/0 3D FUNCTION PLOT 5632 5341 
AI 51/07-6108/1 RECORDKEEP II (REVISION) 4096 3744 Must be first 14 
12 " 5888 5773 files on tape or 
13 " ს 2816 2620 recode 
14 = ^ 6912 6644 
15 " Ы 5376 5192 
16 ñ i 6656 6372 
17 й ç | 5120 5000 
18 + გ 4352 4115 
19 i и 3328 3172 
20 й $ 7168 6961 
21 у g 4352 4016 
22 “ й 3584 3272 
23 | ს 3072 2942 
24 5 ` 2560 2238 
v 51/00-6117/0 TEKTRONIX/HEWLETT PACKARD 1280 1128 
26 l: 488 INTERFACE 1792 1592 
v4 51/00-6118/0 20mA CURRENT LOOP INTERFACE 1536 1435 
68. . 51/00-8012/1 LEROY CHARACTER GENERATOR (REVISION) 5888 5744 
29 ს ს 6912 6628 
40 51/00-8036/0 SPIDER'S WEB CHARACTER GENERATOR 7936 7636 
V31 51/00-8037/0 AUTOMATIC HARDCOPY FILE LISTINGS 3840 3502 
32 51/00-8038/0 TEXT EDITOR 6400 6204 Requires pre-MARKed 
file 
(433 51/00-8040/0 VARIABLE ҒОМТ PRESENTATION AID 7680 7508 Must be first 9 
34 В " 3072 2880 files on tape or 
35 Ш и 7936 7702 recode 
36 2 M 3072 2880 
37 2 м 7680 7432 
38 " " 3072 2880 
39 ы " 4864 4744 
40 " " 3072 2880 
41 " " 5376 5200 
Z42 51/00-8041/0 BINARY DATA FILE DUPLICATOR 6144 5846 Requires pre-MARKed 
file 
а 51/00-9537/0 OVERLAY DRAWING PROGRAM 5632 5483 Optional-pre-MARKed 
44 Е м 768 413 data files 
45 " ў 768 427 
Tae 51/07-9539/0 ENHANCED PIE CHART 9984 9268 Requires data files; 
47 " " 1792 1054 must be first 7 
48 " н 2048 1472 files on tpae or 
49 ს и 7404 6721 гесоде 
50 и i 17152 16552 
51 " s 1792 1058 


52 " " 1536 855 


ETA з» 


y абы 


TEKTRONIDC 
[сс] APPLICATIONS LIBRARY PROGRAM 


TITLE ABSTRACT NUMBER | 
CROSS-REFERENCE & LIST PROGRAM VARIABLES 51/00-8004/0 | 
11/26/76 Minimum 


AUTHOR PERIPHERALS 


Dan Taylor, G. S. Application Development A Printer os Optional 
ABSTRACT 


This program reads a BASIC program from tape and produces 
an alphabetized table of the variables used in the program, 
the same as 51/00-8003/0 does. It also produces a cross- 
reference for each variable used which shows the BASIC 

line numbers where that variable is used and indicates 

if a value is assigned to that variable in that line of 
code. The BASIC program may be stored on multiple 

tape files. 


The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc., assumes no responsibility and 
shall have no liability, consequential or otherwise, of any kind arising from 
the use of this program material or any part thereof. 


PAGENO: 2 
TITLE ABSTRACT NO: 


CROSS-REFERENCE & LIST PROGRAM VARIABLES 51/00-8004/0 


Program Limitations 


The tape files (s) to be analyzed must be valid 4051 BASIC programs. 
The programs should have been stored on tape with the SAVE command. 


An asterisk is normally printed with the line number when a value is 
assigned to the variable in that line of code. (eg X=2.7 INPUT X, 
READ X, etc.) But an asterisk is not printed if a value is assigned 
to an element of an array (eg X(2) = 4.6). 


Your program may be too large for all the variables to be listed at 
once. If this happens the following message will be printed: 


STORAGE FILLED IN THE MIDDLE OF FILE # 1. THE PROGRAM WILL 
CONTINUE WITH FILE # 1 AFTER THE FOLLOWING INFORMATION IS 
PRINTED: 


VARIABLES: 


The larger size memory you have the slower storage will be filled 
(see Methodology). 


TEKTRONIX 4051 PROGRAM 


PAGENO: 3 
TITLE ABSTRACT NO: 


CROSS-REFERENCE & LIST PROGRAM VARIABLES 51/00-8004/0 


Methodology 


The input files are read line by line and searched for 
variable names. When a variable is found its name, line 
number, and file number are saved at the end of the string 
N$. An asterisk is also put in N$ if a value is assigned 
to the variable in this line. A total of 15 characters 
are required in N$ for each occurrence of every variable. 


If N$ fills up before all your files are analyzed then 
the information іп it is immediately printed. The cross- 
referencing then continues. In this case your cross- 
reference would be in two parts. 
How soon N$ fills depends on the machine size you have: 
16K - 390 variable occurrences 
24K - 930 variable occurrences 
32K - 1480 variable occurrences 
The information stored in N$ is organized as a collection 
of linked lists. There is one list for each variable you 
use. The array A (А(26,12) ) consists of pointers into 
N$. For example, A (2,2) might be 6181.0625. This means 
that: 

BØ is used 


4096 (2.0625 x 2 + 16) is the start in N$ of the 
linked list for BP. 


6181 is the end in № of the linked list for BP. 
(j,k) = Ф means that that variable is not used at all. 


A 
Ap 
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PAGENO: 4 
TITLE ABSTRACT NO: 


CROSS-REFERENCE & LIST PROGRAM VARIABLES 51/00-8004/0 


Operating Hints 


If you wish to use this program with a printer you must 
change 3 lines of code: 


FROM то 
1030 F4 1030 F4 = 10 
1040 FS = 1.0Е + 300 1040 FS = 60 
1050 JS = 32 1060 JS = 41 


the number of items to print рег line (each require 
12 spaces) 


the number of lines to print before doing a form feed 
(control L) 


device address of where the cross-reference information 
will be printed (32 is for the screen) 


1020 is a REM which also tells you about these changes. 
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PAGE NO: ? 
TITLE ABSTRACT NO: 


CROSS-REFERENCE & LIST PROGRAM VARIABLES 51/00-8004/0 


Operating Instructions 

After the program is in the machine type RUN: 
CROSS-REFERENCE AND LIST PROGRAM VARIABLES 

NOTE: YOUR PROGRAM MAY BE ON SEVERAL TAPE FILES. 


Begin with File Number = 29 
End with File Number = 30 


FILE # 29 
FILE # 30 


When the last file has been processed*(30 in this example) 
the program prints a table which gives you an overview of 
which variables were used: 


* oy when N$ is filled - see Limitations 


TEKTRONIX 4051 PROGRAM 


PAGE NO: Е 
TITLE ABSTRACT NO: 


CROSS-REFERENCE & LIST PROGRAM VARIABLES 5]/00-8004/0 
VARIABLES: 
AD 


00 
Еў 


Hf 


The blank spaces in the table are the variables which are 
not used at all in your program. (If you want the table sent 
to a printer, see Operating Hints). 


Press the PAGE key and the actual cross-reference will be 
printed: 
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PAGE NO: 7 
ABSTRACT NO: 


TITLE 


CROSS-REFERENCE & LIST PROGRAM VARIABLES 51/00-8004/0 


VARIABLES: 


Ap 
зр 4959 


4220 4229 39 422) зр 4269 * 30 4279 


4010 4289 * 30 4289 30 4300 * 39 430) 
4329 * 


4849 * 4999 29 5119 29 5149 29 635р * 
6369 


5920 6079 * 
4169 * 

4149 

4389 * 

4239 * 


4070 * 29 408р 29 4999 29 4199 29 4110 29 4159 
4320 . 29 4339 29 4470 29 4610 29 4628 29 4710 


The number 29 and 30 are the tape file numbers in which 
this line of code appears. For example: 


AD 
30 4050 means af is used in line 4050 of file 30 


D3 | 
29 4160 * means 03 is assigned а value (indicated by the 
asterisk) in line 4160 of file 29. 


If your program is on only one tape you may not want the 
file number printed. This can be done by chanqing the 
1360 ВЕМ.... to 1360 F$ =" ". 


TEKTRONIX 4051 PROGRAM 


TITLE 


PAGENO: 8 
ABSTRACT NO: 


CROSS-REFERENCE & LIST PROGRAM VARIABLES 51/00-8004/ 0 


Variables 

A (26,12) 
AS (1) 

B$ (1) 

c$ (1). 

F с 


Ff = MEMORY 
has FQ 


Fl š 
F2 
F3 


H$ (8) = F$ 
15. (12). = 


J 

Jp 

Jl 
J2,J3,J4 


J5 


an array of "pointers" into N$ - see Methodology 
the character preyious to the one being analyzed 
the character being analyzed | 
the character following the one in B$ 
the number of the tape file currently being read 


of your machine - 250. № is considered to be full when it 
characters in it. 


beginning file mumber 

ending file number 

scratch used when printing the cross-reference map 

the number of items to print per line (each require 12 spaces) 


the number of lines to print before doing a form feed 
(control L) - used only if you are using a printer. 


scratch used when printing the cross-reference map 


the current tape file number 

the line number of the current line of code 
& 6$ 

" 0123456789%" 


character position in L$ of A$ 
character position in L$ of B$ 


- character position in L$ of C$ 


scratch variables 


device address of where the cross-reference information 


will be printed. See Operating Hints 


TEKTRONIX 4051 PROGRAM 


PAGENO: 9 
TITLE ABSTRACT NO: 


CROSS-REFERENCE & LIST PROGRAM VARIABLES 51 /00-8004/0 


2 + 16, used for unpacking the pointers from A 
1 + 1/96, used for packing the pointers into A 
- position in L$ of the second character after the first space. 


15, the total number of characters required in N$ for each 
occurence of every variable 


(7) Scratch 


the first 3 characters of a line of code which follow 
the first space. (eg. K$ might be REM or PRI, etc.) 


string to hold a line of input from the file 

the number of characters currently in N$ 

holds the information about each occurrence of every variable. 
DIM N$ (FØ + 2 * 99), ЕД + MEM - 250 

scratch 

10 spaces, used for padding other strings with spaces 


holds the information which is to be appended at the end 
of N$ 


the name of a variable (eg Al) 


scratch 
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PAGENO: 10 


TITLE ABSTRACT NO: 


CROSS-REFERENCE & LIST PROGRAM VARIABLES 51/00-8004/0 


| 1000 
1010 


1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1108 
1110 
1120 


| 1130 


1140 
1159 
1168 
1170 
1180 
1190 
1200 
1210 


1220 


1230 
1246 
1250 
1260 
1270 
1280 
1290 


000-6405-02 


REM VARIABLE CROSS-REFN., DAN TAYLOR, APRIL 1976, WILSONVILLE 
REM CHANGE: F4-10, F5=60, J5=41 IF YOU WANT TO USE A PRINTER 


INIT 

F4=6 

F5=1.0E+300 

J5=32 

DIM A(26,12) „е (3) ,G$ (5) ,85 (8) , 19 (12) „J$ (7) ‚RS (6) „55 (10) 
J9=15 

DIM AS(1) „B$ (1) ,C$(1) ,KS (3) ‚L$ (75) «15 (29) ,VS (2) WS (3) 
FO=MEMORY-258 

DIM N$ (F0+2*J9) 

IS=" 01234567895" 

5$=" ў 


REM —--- GET FILE NUMBER 


PRINT "LCROSS-REFERENCE AND LIST PROGRAM VARIABLES" 

PRINT "JNOTE: YOUR PROGRAM MAY BE ON SEVERAL TAPE FILES.GGGG" 
PRINT "JBegin with File Number = "; 

INPUT Fl 

IF INT(Fl)O Fl OR Fl«-0 THEN 1160 

PRINT " JEnd with File Number - "; 

INPUT F2 

IF INT(F2) C F2 OR F2«-0 THEN 1190 


REM ----- INITIALIZE 


N-1 

№="" 
J7=1+1/2116 
A=0 

SET NOCASE 
PRINT "J" 

FOR F-Fl TO F2 


TEKTRONIX 4051 PROGRAM 


PAGE NO: 
TITLE ABSTRACT NO: 


CROSS-REFERENCE & LIST PROGRAM VARIABLES 51/00-8004/0 


PRINT "JFILE # "; 
FIND F 

JS=STR(F) 
J$=REP("“,1,1) 

R$=SEG (S$ ,1,3-LEN (J$) ) 
F$=RS&JS$ 


REM SET F$="  " (3 SPACES) IF YOU DON’T WANT THE FILE NUMBER 


ON EOF (0) THEN 1390 
GO TO 1970 
NEXT F 


REM —--- PRINT NUMERIC VARIABLE NAMES 


PRINT QJ5:"L";. 
PRINT @J5:"VARIABLES:J" 
FOR J3-1 TO 26 
V$=CHR(64+J3) 
FOR J4=1 TO 12 
IF A(J3,J4) THEN 1498 
PRINT @J5:" 74 
GO TO 1510 
WS=SEG (IS ,J4,1) 
PRINT 8J5:V$;W$;" 
NEXT J4 
PRINT @J5: 
NEXT J3 
IF J5<>32 THEN 1560 
PRINT "GGGGGGGGTKJJ" 
PRINT €J5:"LVARIABLES:J" 
26-1/(27-1) 
Е6-Е5-2 
Е7-2 
FOR 23-1 TO 26 
У5-СНВ(64-23) 
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РАДЕ МО: 12 
TITLE ABSTRACT NO: 


CROSS-REFERENCE & LIST PROGRAM VARIABLES 51/00-8004/0 


1628 FOR J4=1 TO 12 

1638 IF NOT(A(J3,J4)) THEN 1920 
1640 WS=SEG(IS,J4,1) 
1650 IF F7<F6 THEN 1680 
1660 PRINT @J5:"L"; 

1670 F7=0 

1680 PRINT @J5:"J" ;V$;W$ 
1698 F7-F742 

1700 F3=0 

1718 J2=J6* (А (3 „74) -INT(A(J3,J4))) 
1720 W$=SEG(N$,J2,3) 
1730 T$=SEG (№ ,J2+3,5) 
1740 CS=SEG(NS,J2+8,1) 
1750 F3=F3+1 

1760 . IF F3<=F4 THEN 1830 
1770 F3=1 

1780 PRINT @J5: 

1790 F7=F7+1 

1800 IF F7<F5 THEN 1830 
1810 PRINT @J5:"L"; 

1820 F7-0 

1830 PRINT @J5:WS;" ";T$;" ";С5;" "; 
1840 TS=SEG (№ ,J249,6) 
1858 J2=VAL (TŠ) 

1860 | IF J2 THEN 1720 
1878 PRINT @J5: 

1880 F7=F7+1 

1890 IF F7<F5 THEN 1920 
1900 PRINT @J5:"L"; 

1910 F7=0 

1920 NEXT J4 

1930 NEXT J3 

1940 PRINT @J5: 

1950 RETURN 


1960 REM ----- SUBROUTINE TO FETCH VARIABLE NAMES FROM INPUT LINE 
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PAGENO: 13 
TITLE ABSTRACT NO: 


CROSS-REFERENCE & LIST PROGRAM VARIABLES 51/00-8004/0 


INPUT @33:LS 
J=POS(L$," ",2) 

J0=J+1 

KS=SEG (LS ,J0, 3) 

IF K$="REM" OR K$="IMA" THEN 1970 
J8-J041 
G$=SEG (LS ,1,J-1) 
R$=SEG (S$ ,1,5-LEN (G$) ) 
G$=R$&G$ 

HS=FS&GS 

L$=LS8"  " 
AS-SEG (LS ,J,1) 
BS=SEG (LS ,J0 , 1) 

FOR J1=J8 TO LEN(LS)-2 


REM —--- IGNORE CHARACTERS BETWEEN QUOTES 


IF BS<>"""" THEN 2200 
J-POS(L$ ,"""" ,J1) 
Јд=Ј+1 

J1=J0+1 
AS=SEG (15 „Ј,1) 
BS=SEG (L$ „270 ,1) 

со то 2120 


REM —--- CHECK PREVIOUS(A$) AND SUCCEEDING(C$) CHARACTER 


C$=SEG (15 ,J1,1) 

IF BS<"A" OR B$>"Z" THEN 2860 
IF C$>"@" AND CS«"[" THEN 2790 
IF AS>"@" AND AS«"[" THEN 2860 
IF AS>"/" AND AS<":" THEN 2860 
J3=ASC (BS) -64 


REM ----- ONE OR TWO CHARACTER NAME--SKIP ONE OR TWO CHARS. 
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PAGENO: 14 
TITLE ABSTRACT NO: 


CROSS-REFERENCE & LIST PROGRAM VARIABLES 51/00-8004/ 0 


IF C$="$" OR (C$>"/“ AND С$<":") THEN 2360 
V$=B$&" " 
AS=C$ 

J=J1 

J1=31+1 

J0=J1 
BS=SEG (LS ,J@,1) 
J4=1 

GO TO 2440 
J4=POS(IS ,CS$ ,2) 
V$=BS&CS 
J=J1+1 
AS=SEG(LS,J,1) 
J0=J+1 
B$=SEG (L$ ,Ј0,,1) 
Ј1=Ј0 


REM —--- ASSIGNMENT 2 


IF K$="INP" OR K$="REA" OR K$="RBY" THEN 2500 
W$=" " 

ІР A$<>"=" THEN 2520 

IF K$="IF " THEN 2520 

IF POS(LS,"=",J8)<J THEN 2520 

GO TO 2510 

IF POS(LS,":",8)>J0 THEN 2520 

W$="*" 

J6=A(33,J4) 

IF J6 THEN 2580 


REM ----- FIRST OCCURRENCE OF A(J3,J4) 


A(J3,J4) =N*J7 
GO TO 2630 
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PAGENO: 15 
TITLE ABSTRACT NO: 


CROSS-REFERENCE & LIST PROGRAM VARIABLES 51/00-8004/0 


КЕМ ----- ANOTHER OCCURRENCE 


J$=STR(N) 

R$-SEG (S$ ,1, 6-LEN(J$)) 

JS=R$&JS 

N$=REP(J$,J6+9,6) 

A(J3,J4)=J6-INT(J6)+N 

J$=W$&"—0END—-" 

T$=H$&J$ 

NS=REP (TS ,N,@) 

N=N+J9 

ТЕ N<FA THEN 2900 

PRINT @J5:"LSTORAGE FILLED IN THE MIDDLE OF FILE ў ";F;". 
PRINT @J5:"THE PROGRAM WILL" 

PRINT QJ5:"CONTINUE WITH FILE ў ";F;" AFTER "; 
PRINT @J5:"THE FOLLOWING INFORMATION IS PRINTED:JJ" 
GOSUB 1420 

А=0 

№1 

N$="" 

PRINT @J5:"JOONTINUING WITH FILE # "; 

GO TO 2988 


REM ----- SKIP NEXT CHARACTER 


А$=С$ 

J=J1 

J1=J1+1 

J0=J1 
BS=SEG(LS,J8,1) 
GO TO 2900 


REM ----- PREPARE FOR NEXT CHARACTER 


жақ AAA TEKTRONIX 4051 PROGRAM 


PAGE NO: 16 
TITLE ABSTRACT NO: 


CROSS-REFERENCE & LIST PROGRAM VARIABLES 51/00-8004/0 


2880 А5=85 
2890 B$=C$ 
2900 NEXT Jl 

2910 GO TO 1978 
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JAp* | 4051 
APPLICATIONS LIBRARY PROGRAM 


TITLE ABSTRACT NUMBER | 
Gantt Chart 51/07-0102/0 | 
ORIGINAL DATE. REVISION DATE MEMORY REQUIREMENT | | 
February 1980 32K 
AUTHOR 5 PERIPHERALS 
š ektron1x, nc. 
Connie Breithaupt Rockville, MD See Below 


ABSTRACT 


фа 
ТЕКТВОМІХ 


Peripherals: 4907 File Manager (For Disk Version Only) 


Optional - 4662 Plotter 


Statements: Tape Version - 1617 
Disk Version - 1605 


Files: Tape Version - 4 ASCII Program 
3 Binary Data (Directory and Example) 
Requires pre-MARked data files 


Disk Version - 4 Binary Program 
10 Binary Data (Examples) 


The program generates a chart and graph of activity vs. time. 
The following is input: 


Project name - 2 lines - 15 characters each 

Chart title - 45 characters 

Code - 16 characters 

Project code - 6 characters 

Signatures - 2 lines - 30 characters each 

Vertical row descriptions - single or double spaced - 4 rows maximum 
Horizontal row descriptions - single or double spaced - 16 rows maximum 
Weekly data for each row - 28 weeks maximum - beginning with a Sunday 


Charts are saved by name. File 5 of the tape version contains a directory 
of the charts by name. 


Weekly data may be edited for each week or selected weeks. 


Charts are generated for a 14 week period starting with a chosen beginning 
column date. 


Three selected rows of data may be graphed on one chart. The first selected 
row will be graphed with a solid line, the second with a dotted line, and 
the third with a dashed line. 


The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc., assumes no responsibility and 
shall have no liability, consequential or otherwise, of any kind arising from 
the use of this program material or any part thereof. 


PAGENO: 2 
TITLE ABSTRACT NUMBER 


Gantt Chart 51/07-0102/0 


Disk Version 


Gantt Chart 


SAI INPUT 


Function 


Input chart characteristics 
Input weekly data 
Generate the chart on the screen or the plotter 
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PAGENO: 1 
TITLE ABSTRACT NUMBER 


Gantt Chart 51/07-0102/0 


Tape Version 


TITLE Gantt Chart TAPE # FILE # 


UDK # Function 


1 Input chart characteristics 

2 Input weekly data 

3 Generate the chart on the screen or the plotter 
6 List the existing chart names and file numbers 
7 Delete all charts 
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` PAGENO: 3 
TITLE ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


LOADING INSTRUCTIONS 


Tape Version 


Press AUTOLOAD. The program should be located on the first 
files of the tape or will need to be recoded, 


File 1 Autoload 


File 2 Describe chart characteristics 
File 3 Input weekly data 

File 4 Generate chart 

File 5 Chart names & storage file numbers 
File 6 Chart #1 - chart characteristics 


(923 byte string arry - A$) 
File 7 Chart #1 - weekly data 
(beginning data date (R$), number of data 
rows (L1) and the actual weekly data (D9(L1,28))) 


Disk Version 


Mount the disk and enter: 


OLD "eGANTT1/AUTOLOAD" 
RUN 


program consists of the following files: 


@GANTT1/AUTOLOAD Autoload 

@GANTT1/PROGRAM/ INPUT/CHART Describe characteristics 
@GANTT1/PROGRAM/INPUT/DATA Input weekly data 
@GANTT1/PROGRAM/OUTPUT/NODOC Generate chart 
@GANTT1/MODEL/CHART . Examples 

@GANTT1/MODEL/DATA 

GGANTTI/JETSTARI/CHART @GANTT1/chartname/CHART 
@GANTT1/JETSTAR1/BATA 1000 byte, sequential 
@GANTT1/JETSTAR2/CHART и 
@GANTT1/JETSTAR2/DATA (923 byte string array 
@GANTT1/ALLPROJECT/CHART containing chart character- 
@GANTT1/ALLPROJECT/DATA istics) 
@GANTT1/INTERCO1/CHART 

@GANTT1/INTERCO1/DATA @GANTT1/chartname/DATA 


1000 byte, sequential 


(date in string format, 
number of rows, numeric 
array dimensioned to 
number of rows x 28 con- 
taining weekly data) 
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РАСЕ МО: 4 


TITLE ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


Tape Version 


Directory File #5 and data files may be created in the following 
manner. 

FIND 5 

MARK 1,3072 

FIND 5 

WRITE @33:"DONE",6 


Each chart requires two data flles one for the characteristics 
and one for the data. 
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PAGE МО: 5 
TITLE ABSTRACT NO: 


Gantt Chart ) 51/07-0102/0 


: = This is the layout of A$(923) which contains the chart characteristics. Array А (61 
7 contains the indexes to each element of A$. 4 Æx: САЛ(3)=31 is the beginning position 
- of CHART TITLE | роко 
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PAGE МО: 6 г. 
TITLE ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


OPERATING INSTRUCTIONS 


Tape Version 


$ GANTT CHARTS $ 


TASK 


DESCRIBE CHART 
INPUT WEEKLY DATA 
GENERATE CHART 


LIST STORED CHART NAMES 
INITIALIZE OATA FILES 
(DELETE ALL CHARTS) 


i 
2 
3 
6 
? 


Press a Function Key! 
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| PAGENO: 7 
TITLE ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


Disk Version 


% GANTT CHARTS $ 


$ТЯРЕ VERSIONX 


DESCRIBE CHART 
INPUT WEEKLY DATA 
GENERATE CHART 


DISK VERSIONS 
DESCRIBE CHART 


6 
7 INPUT WEEKLY DATA 
8 | СЕНЕКАТЕ CHART 


The “Generate Chart’ Task will not return 
to the Menu (Memory Considerations)! 


Press a Function Key! 
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PAGENO: 8 * 
TITHE ABSTRACT NO: 


| Сесар Chart 51/07-0102/0 


This Task allows characteristics of a GANTT Chart 
to be described, 


PROJECT NAMES ЈЕТЗУТВЕ_11 


CHART TITLE: БНОВІЄСЕ УЏИМВЕУ_____________________________ 
ასა 


PROJECT NUMBER: __7885 
SIGHATURE: PREP@RED_BYi_H.Y._HENDERSON__ 
8b12J.U. BBREBSO 


БЕР: 0,8. ВЕ 


сл 


D 


A$(923) is initialized to Blanks. As the Chart characteristics are 
input they are stored in A$ at positions defined by Al(61). For 
example А1(3)=31 is the First Position of CHART TITLE. 


A one line PROJECT NAME must be typed on the first indicated line. 
The second line is optional. 


The CHART TITLE will be centered by the program. This is the only 
text automatically centered. 


The PROJECT CODE is opttonal. 


A one line signature must be typed on the first indicated line. The 
second one is optional. 
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PAGENO: 9 
TITLE ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


VERTICAL DESCRIPTIONS (4 MAX) 


SINGLE or DOUBLE: D (type “6” when done» 
BEG ROW: 1. 
END ROK: 4. 
DESCRIPTION #1: .. COHCEL... 
BESCRIPTION #2: 


SINGLE or DOUBLE: S (type 78" 
BEG ROW: Š 
END ROM: 6. 
DESCRIPTION: „СПИМ 


SIHGLE or DOUBLE: 6 (type "В" when done? 


The VERTICAL ROW DESCRIPTION's can be 1 line or 2 lines (Single or 
Double). The END ROW of the description must be greater than the 
BEG ROW. Remember, there is a maximum of 16 Rows. The indicated 
rows must not already be spanned by another VERTICAL DESCRIPTION. 
Rows spanned by single descriptions are stored in A2(16), those by 
double descriptions in A3(16); these arrays are checked when new 
VERTICAL DESCRIPTION's are defined to prevent overlapping. 


The number of rows spanned by VERTICAL DESCRIPTION determines the 
number of spaces available for the actual text. In this program 
the rows are 3 units and the text print 1 unit in width. The 

` formula then:is: 


` (4 of spanned rows) x 2 + (# of spanned rows - 1) 
Ex: spanned rows are 3 thru 6 thus 
г(4) x 2) +((4) - 1) = 11 possible characters 


The text for each VERTICAL DESCRIPTION is only centered зайка if it 
is centered at the time of input. See above example. 
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TU 
[EH 


HOFTZONTAL 


000-6405-02 


DESCRIPTION: 
LINE? 
DESCRIPTION: 
LINE? 
DESCRIPTION: 
LINE? 
DESCRIPTION: 
LINE? 
DESCRIPTION: 
LINE? 
DESCRIPTION: 
LINE? 
DESCRIPTION: 
LINE? 
DESCRIPTION: 
LIHE? 


DESCRIPTIONS 


H.E. BSSENELT 
type 707 when 


В 


SUBGSSENEL I. - 


type 70” when 


b 


FEELER- PL6HIS 
type 707 when 


H 


--10181 
type 707 when 
1 

48.08, GSSEBBLY 


type 787 when 
H 


rE Hana 


type "0" when 
y 


EEEDER_PL6HIS 
wee 70” when 


- I018L 
oe 70” when 


PAGE NO: 


complete 


complete 


өз == аю о се gue => с == = өз 


conplete 


complete 


complete 


complete 


ть «== ае => аю => өк == <= => ФИ» == өл» <= s." 


complete 


complete 
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ABSTRACT NO: 


51/07-0102/0 
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PAGENO: 11 
TITLE ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


DESCRIPTION: ТОТВ. -LINE К СИЗНТОН 2... 
type 787 when complete 
LINE? 


DESCRIPTION: В________________________ 5222. 
type 787 when complete 


Тһе DESCRIPTION's will Бе printed оп the chart exactly as indicated, 
e.g., in the example on the preceding page, TOTAL will be indented 2 
spaces. 


The number of characters allowed for the DESCRIPTION (L3) is 30 if 
there is not a vertical description on the row, 27 if the vertical 
description is single, 25 if the vertical description is double. 


А "Y" in answer to LINE? will generate a horizontal line following 
the DESCRIPTION. Note that a LINE should not be indicated after the 
last DESCRIPTION as the program generates the bottom outline. 


A line should also be indicated after the row which completes a 
VERTICAL DESCRIPTION. When the VERTICAL DESCRIPTION is printed only 
the vertical line is drawn. 
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PAGENO: 12 
· ABSTRACT NO: 


TITLE 


Gantt Chart 


51/07-0102/0 


HORIZONTAL DESCRIPTIONS 


DESCRIPTION: GEL@C__..._---- SCHEDULE... 
г ver 07 when complete 

DESCRIPTION: 
LINE? H 
DESCRIPTION: 
LINE? H 
DESCRIPTION: __._. 
LINE? Y 
DESCRIPTION: 
LINE? H 

DESCRIPTION: LIAISON аа ана EAN: Бена 


ype 70" when complete 
LINE? Ü 


ть өт чь с» с» = = GO «к» си аю >» a == є» с <> а» <= 


Two column HORIZONTAL DESCRIPTIONS can ђе created. Type the two 
descriptions separated by enough spaces to later draw the dividing 
line by hand. 


In this example, notice that the words for the second column are 
typed 10 spaces from the right. 
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PAGENO: 13 
TITLE ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


Tape Version 
What shall be the name of this Chart? JEISIGE.II 


Disk Version 


What shall Бе the name of this Chart? JEISIBR_II 


Insert in Unit 40 the Disk to contain Chart JETSTAR II 
То continues type «CR». 


The chart name must be 10 Alphanumeric characters or less and begin 
with an Alphabetic character. 


If the indicated chart name already is stored in File #5 it probably 
means this task was used to modify the chart characteristics. In 
case it was a mistake, though, a message will print, offering the 
choice of overwritting the already stored chart or not. A "Y" will 
overwrite the stored chart; an "N" will allow a new chart name to 

be indicated. Likewise, a message will print, offering the choice 
of overwritting the chart's data file or not. A "Y" will keep the 
existing data; an "N" will initialize the data file. 


 JETSTAR 11 Chart format stored! 


TEKTRONIX 4051 PROGRAM 


PAGENO: 14 
TITLE | ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


This Task allows Data Editing. 


Which Chart? ЗЕІЭІВЕ 11 


Beginning Data Date 15 0142812580, this correct”? H 


New Date: 8972278. 


The chart пате will be rejected unless the first character 15 
Alphabetic and the remaining 9 are Alphanumeric. 


The program will check if the indicated chart is indeed stored 
on the tape. 


The data file is read: R$ - beginning data date, L1 - number of 
rows, D9(L1,42) - data. 


The beginning data date is the date associated with the first 
column of data. Notice that zeroes do not have to be typed for 
the 1 digit month or day. If the beginning data date is modified, 
it must be a Sunday. It is tored in P$, as R$ is the variable 
which must be passed to the calendar routines. 
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" PAGE МО: 15 
TITLE ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


During Data modifications type: 


<CR> if present value is correct} 
-1 if value is not to print: or 
6 if it is to be calculated. 


Typing а "0" for any of the following Questions will cause 
an exit from the indicated Process. 


Present row value is retained, nothing will print when chart is 
generated. 


A calculation will override any existing row value, so a "0" or 
actually any value can be typed. 


Do you want to go thru each Meek(1>, only selected Weeks(2), 
or Heither(8>? 1 


Should Data for 9-3/78 be Modified? Y 
Row 1: 14/0 
Row 2; 
Row 
Row 
Row 
Row 
Row 
Row 
Row 


0004 


Should Data for 9/10/78 be Modified? H 


If modification Type 1 is selected, each weekly date can be 
modified in order, starting form the beginning data date. 
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PAGENO: 16 
TITLE ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


During Data modification, type: 


«СК» if present value is correct: 
-1 if value is not to print: or 
8 if it is to be calculated, 


Typing а 78" for any of the following Questions will cause 
an exit from the indicated Process. 


Do you want to go thru each Week(1>, only selected Weeks(2). 
or Heither(8)? 2 


Khich Date: 9717278. 
Row 1: 26722 252 
Row 2: 6 
Row 5 
Row 37722 
Rou 
Row 
Row 
Row 
Row 


Which 


100 ЈУ cn C а 


Modification Type 2 allows the operator to indicate the date to 
be modified. 


When a data value is typed, a slash is changed to a decimal point 
and stored in a numeric array (D9). Before printing the value 
back on the screen or plotter, the "." is changed back to a "/". 
This method used to facilitate the total calculations (next page). 
Because this method was used, a value like 39/2 must be typed as 
39/2 (otherwise it will be stored and used as 39/20). 


Also, if the value was input with a slash (changed to a decimal 
point) .0001 is added to it; so a value like 24/0 is stored as 
24.0001, not 24. (the last two digits, 01, will be dropped before printing). 
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PAGENO: 1 
"ABSTRACT NO: 


TITLE 


Gantt Chart 


51/07 -0102/0 


Total Calculations 


How many Rows? 3. (type 707 when complete»? 


Indicate Rows: 1_2_3_---------- ---_-_ 
Indicate Total Row #: 4_ 


Total Calculations 


How many Rows? 3. (type 707 when complete> 


> >. 


Indicate Total Row ზ: 8_ 


Indicate Rows: 


Total Calculations 


How many Rows? 2. (type “0” when complete? 
Indicate Rows: 4 В ------------- ე 


Indicate Total Row 4: 9. 


Totals are found across all 28 columns of the indicated rows. 
Addition is the only function available. 


Rows to be added can not be the same as the total row. 


Rows which were defined by the total calculation can later be 
used as rows to be added. See above example. 


If any column of the rows to be added is -1, that column of the . 
total row will also be -1, i.e., nothing will print in the indicated 
row/column when the chart is drawn. Р NE 
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PAGENO: 18 + 
TITLE ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


Would you like a Print-out of the existing Data”? H 


Would you like to go thru the Editing process again? H 


Beginning Date, Number of Rows; and the Weekly Data has been 
stored in the Data File for Chart JETSTAR II! 
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ს PAGENO: 19 
IIILC ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


This Task generates GANTT Chart. 


What is the Name of the GANTT Chart? JEISIGE.II 


Beginning Data Date is 9/73/78 
Indicate beginning Column Date: 9/17/76. 


The program will print the date of the first column of data. The 
operator then indicates the data of the first column to be charted. 
This date must be a Sunday and be within 28 of the beginning date 
date. Note that a "Ø" does not have to be typed before a 1 char- 
acter month or day. 


The program will chart 14 weeks of data starting with the indicated 
beginning column date. This task can be run again, with a different 
beginning column date. 


The following examples show this task run on the same chart with 
Starting dates 9/17/78 and 12/10/78. 


Remember that the data file holds 28 weeks of data. When the beginn- 
` ing column date is within 14 weeks of the end, the program widens the 
width of the columns to compensate for the lesser number of columns. 

See the third example which follows. 
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Gantt Chart 
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РАСЕ МО: 


ABSTRACT МО: 


TITLE 


51/07-0102/0 


Gantt Chart 


10/2 өл 88/1 
62/2 %/2 24/2 


ЕТТІ  39V 130HS 


————————— 
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000-6405-02 
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PAGENO: 22 : 
TITLE ABSTRACT NO: 


Gantt Chart 51/07 -0102/0 


Kou Descriptions for Chart JETSTAF 


MAJOR ASSEMBLY 

SUBASSEMEL Y 

FEEDER PLANTS 
TOTAL 

MAJOR ASSEMBLY 

SUBASSEMBLY 

FEEDER PLANTS 


TOTAL 
TOTAL LINE & CUSHION 


KO 00 >. (h СП A GJ PO — 


вр зо ор зе өз ве ва оч «ев 


КОН 


Indicate the 3 Rows to be Graphed; 0.2.9... 
(If necessary, type 8’s to make 3) 


To help select the rows which are to be graphed, the row descriptions 
are listed. 


The numbers of 3 rows must be indicated for graphing. If necessary, 
type "0"5. 


The first selected row will be graphed with a solid line, the second 
with a dotted line, and the third with a dashed line. 


000-6405-02 | TEKTRONIX 4051 PROGRAM 


TITLE . ABSTRACT NO: 


Gantt Chart 


51/07-0102/0 


Row 8; iE .I0I8...--- 
Row 3: j T 


The minimum Y value of the selected Rows is € 
and the maximum Y value is 72 


Indicate graph’s: 
Minimum Y value: В .--- 
Maximum Y value: 188... 
Interval ‚ 25 


Shall the Chart be generated on the Screen(32) or оп 
the Plotter¢1>7 1. 


Ready Plotter! 
To continues type <CR>. 


The operator must indicated the legend names of each row to be graphed 


(0$, P$, Q$). 


The program will print the minimum and maximum Y values of the range 
indicated by the 3 rows to be graphed. The operator then indicates 

the graph range (H5 & H6) and grid line interval (H7). The interval 
must evenly divide the range. 


If the chart is to be generated on the plotter (*1" or the plotter's 
device number) the program will pause so the plotter can be readied. 
The output device variable is 01. 


If the chart is generated on the screen, the Alphanumeric characters 
will be software generated. Because of the number of characters 
required for the Gantt Chart, hardware characters cannot be used. 
Characters other than alphanumeric will be displayed as a period ".". 
The subroutine which strokes the screen characters does not handle ` 
angled text, thus the vertical descriptions cannot be printed on 

the screen. Variable S containsall the character strokes. 
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PAGE NO: 24 ` 
TITLE ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


If the program indicates that both the minimum and maximum Y values 
are "Р", this means that no values have been typed for the indicated 
column range, i.e., data values are all -1. The operator should still 
type the range values and interval; the graph will be drawn but with- 
out curves. 


If no rows have been chosen to be graphed; i.e., all "P's" were typed, 
the operator should still select the graph's range and interval; the 
graph will be drawn without curves. 
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Ë PAGENO: 25 
TITLE 7 ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


MODIFICATIONS 


It will be simple to modify the CHART GENERATION program to chart 
monthly, instead of weekly data. 


Some. of the changes: 


Change G7 = 3 to G7 = f. This is presently the width of the week 
area. 


In the Calendar Subroutine, change T1=2 (indicating weeks) to 
T1 = (indicating months). 


Skip lines of code which presently print out the week date. Also, 
skip the code which checks if the month has changed; a line should 
be drawn after all columns. 


Miscellaneous text can also be added to a chart. After the chart 15 
plotted, move the plotter pen to where the additional text 15 to be 
printed and type: 


PRINT @1,17:char width, char height 
PRINT @1:"text" 


Be careful when renumbering or modifying the autoload and output 
program. The output program deletes line numbers and these may 
have to be modified. 
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ABSTRACT NO: 


PAGE NO: 


51/07-0102/0 


Gantt Chart 
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ABSTRACT КО 


Gantt Chart 51/07-0102/0 


TAPE VERSION -- FILE 1 
р GO TO 100 


3 REM nimi nnne INPUT OF CHART CHARACTERISTICS ***** TAPE VERSION 
4 FIND Е1%3-1 

5 GOSUB 540 

6 RETURN 

7 REM ИРЕ ин INPUT OF WEEKLY DATA ##### TAPE VERSION 
8 FIND F1*3 

9 GOSUB 540 

10 RETURN 

11 REM ЖЕК REESE CERA EN GENERATE GANTT CHART ##### TAPE VERSION 
12 FIND F1*3+1 

13 OLD 

14 RETURN 

23 REM ӨӨӨ HEHE LIST NAMES OF STORED CHARTS 
24 GOSUB 400 

25 GOSUB 270 

26 RETURN 

27 REM икта ER DELETE ALL STORED CHARTS 


28 GOSUB 510 
29 GOSUB 380 


30 RETURN 

100 INIT 

110 PRINT "L* GANTT CHARTS *JJ" 
260 F1=1 

270 PRINT "JJJ UDK TASK" 
280 PRINT " --- ----" 
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AGENT 28 


ттт | ABSTRACT NT 


Gantt Chart 51/07-0102/0 


290 PRINT "J 1 DESCRIBE CHART" 

300 PRINT " 2 INPUT WEEKLY DATA" 

310 PRINT " 3 GENERATE CHART" 

320 PRINT "J 6 LIST STORED CHART NAMES" 
330 PRINT " 7 INITIALIZE DATA FILES" 
340 PRINT " (DELETE ALL CHARTS)" 

380 PRINT "JJ Press a Function Key!GG" 
390 RETURN 

400 FIND 5 

410 F1=0 


411 PRINT "LEXISTING CHART NAMES & FILE #J" 
420 ON EOF (0) THEN 490 
430 FOR I1=1 TO 100 


440 READ @33:E$,E1 
450 IF F1=0 THEN 470 

452 PRINT "JJPress <CR> to continue. "; 
454 INPUT Z$ 

455 PRINT "L" 

460 RETURN 

470 IF E$<>"DONE" THEN 475 

472 E$="LAST" 

475 PRINT " "ES," "SET 
480 NEXT I1 

490 F1=1 

500 RETURN 

510 FIND 5 


520 WRITE 633:"DONE",6 
522 PRINT "JJData Files initialized!GGJ" 
530 RETURN 
540 SET NOKEY 
550 APPEND 730 
560 GOSUB 730 
570 SET KEY 
580 DELETE 731,65000 
590 FOR I1=1 TO 700 
600 NEXT I1 
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Б PAGE МО 29 
TITLE ABSTRACT NO. 


Gantt Chart 51/07-0102/0 


610 PRINT "L" 
620 GOSUB 260 
630 RETURN 
730 INIT 
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ABSTRACT NT. 


Gantt Chart 51/07-0102/0 


TAPE VERSION -- FILE 2 


106 
110 
120 
130 


140 
150 
160 


170 
180 
190 
200 
210 


220 


230 
240 
250 
260 
279 
280 
290 
300 
310 
329 
330 
340 


350 


TNII 
PRINI "LThis Task allows characteristics of a GANTI Chart" 
PRINT "to be described.JJ" 


DIM A$(923),A1(61) ,Ac(16) ,A3(16) ,Z$(20C) 
REM аннан РЦ _ LENGTH OF DESCRIPTION AREA 
Rü=31.5 
REM *XXXKEKEXKK AS — CHART CHARACTERISTICS, INITIALIZE TO 923 BLANKS 
Ag=" " 
FOR I1=1 TO 17 
A$-A$&" " 
NEXT I1 
A$-A$&" " 
REM ****** AY - POSITIONS IN A$ WHICH START THE CHARACTERISTICS DESC 


DATA 1,16,31,76,92,98, 128, 158, 166, 168, 170, 172, 173, 203, 233, 235, 237 
DATA 238,268,298, 300, 302, 303, 333, 363, 365, 367, 368, 398, 428,429,459 
DATA 460,490,491,521,522,552,553,583,584,614,615, 645, 646, 676, 677 
DATA 1707, 708, 738, 139, 169, 710,900, 801,831,832, 862, 863, 893, 894 
RESTORE 230 

READ A1 


REM ***** Д2 & АЗ - ROWS HAVING SINGLE AND DOUBLE VERT DESC'S, INIT 
FOR 11=1 TO 16 
A2(11)=0 
A3(11)=0 
NEXT 11 
REM ананы PROMPT FOR CHARACTERISTICS AND STORE IN A$ 


PRINT " PROJECT NAME: " 
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360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 


650. 


660 
670 
680 
690 
700 
710 


PRINT " " 

PRINT " | KK"; 

INPUT X$ 

PRINT " "s 

INPUT Y$ 

IF LEN(X$)<>0 THEN 450 

PRINT " type Project Name on Line 1 and optionally"; 
PRINT " on Line 2!GG" 

GO TO 350 

IF LEN(X$)<=15 AND LEN(Y$)<=15 THEN 480 
PRINT " 15 characters maximum for each Line!GG" 
GO TO 350 

A$=REP(X$,A1(1) ,LEN(X$)) 

IF LEN(Y$)=0 THEN 510 

A$zREP(Y$,A1(2) ,LENCY$)) 

PRINT " CHART TIILE: d 


PRINT " " 

PRINT " K"; 

INPUT X$ 

IF LEN(X$)<=45 AND LEN(X$)<>0 THEN 580 

PRINT " 45 characters maximum!GG" 
GO TO 510 

A$=REP(X$,A1(3) ,LEN(X$) ) 

PRINT " CODE: HHHHHHHHHHHHHHHH"; 
INPUT X$ 

IF LEN(X$)<=16 THEN 640 

PRINT " 16 characters maximum!GG" 
GO TO 590 


A$=REP(X$,A1(4),LEN(X$)) 

PRINT "PROJECT NUMBER: HHHHHH"; 
INPUT X$ 

IF LEN(X$)<=6 AND LEN(X$)<>0 THEN 700 


‘PRINT " 6 characters maximum!GG" 

GO TO 650 

A$=REP(X$,A1(5) ,LEN(X$) ) 

PRINT " SIGNATURE: " 
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720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 


PRINT " " 
PRINT " KK"; 

INPUT X$ 

PRINT " "; 

INPUT Y$ 

IF LEN(X$)<>0 THEN 810 


PRINT " type Signature on Line 1 and optionally "; 


PRINT "on Line 2!GG" 
GO TO 710 
IF LEN(X$)<=30 AND LEN(Y$)<=30 THEN 840 
PRINT " 30 characters maximum for each Line!GG" 
GO TO 710 
A$=REP(X$,A1(6) ,LEN(X$)) 
IF LEN(Y$)=0 THEN 870 
A$=REP(Y$,A1(7) ,LENCY$)) 
FOR I1=1 TO 300 
NEXT I1 
L4=5 
L1=0 
PRINT "LVERTICAL DESCRIPTIONS (4 MAX) J" 
L4zL445 
L1=L1+1 
ЈЕ 1124 THEN 1720 
PRINT "J" 
PRINT " SINGLE or DOUBLE: _ (type '0' when done)" 
PRINT " K"; 
INPUT W$ 
IF W$="0" OR W$="S" OR W$z"D" THEN 1020 
PRINT " type '0','S', or 'D'!GG" 
GO TO 960 
IF W$="0" THEN 1720 
PRINT " BEG ROW: _ HH"; 
INPUT X$ 
IF LEN(X$)=1 OR LEN(X$)=2 THEN 1080 
PRINT " type 1 or 2 numbers please!GG" 
GO TO 1030 
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.080 GOSUB 2720 


1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 


1280 


1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 


1390 


IF Ј1=0 THEN 1120. 


PRINT " type numbers only!GG" 

GO TO 1030 

J1=VAL(X$) 

IF 41:21 AND J1<=16 THEN 1170 

PRINT " Vertical Description can span "; 

PRINT "Rows 1 thru 16 only!GG" 

GO TO 1030 

Y$=X$ 

PRINT " END ROW: _ HH"; 

INPUT X$ 

IF LEN(X$)=1 OR LEN(X$)=2 THEN 1230 

PRINT " 1 or 2 numbers only!GG" 

GO TO 1180 

J2=VAL(X$) 

IF Јг>Ј1 AND J2<=16 THEN 1290 

PRINT " Ending Row must be greater than Beg Row" 
PRINT " and less then Row 16!GG" 

GO TO 1030 

REM КЕӨ И ИЕ ИЕЛЕ И ИИИНИН CHECK IF ROWS ARE ALREADY SPANNED 


43-0 
FOR I1=J1 TO Je 


IF A2(11)<>0 THEN 1330 

IF A3(11)=0 THEN 1350 

J3=1 

11:72 
NEXT 11 
IF J3=0 THEN 1400 
PRINT " a Vert Desc already spans this Row!GG" 
GO TO 960 ЕБ 
REM ######## STORE SPANNED ROWS IN SINGLE € DOUBLE ARRAYS, Аг & АЗ 


000-6405-02 TEKTRONIX 4051 PROGRAM 


PAGE NO: 34 
T ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


1400 FOR I1=J1 ТО Je 


1410 IF W$="D" THEN 1440 
1420 A2(11)=1 

1430 GO TO 1450 

1440 A3(11)=1 


1450 NEXT I1 

1460 A$=REP(Y$,A1(L4) ,LEN(Y$)) 
1470 A$=REP(X$,A1(L4+1),LEN(X$)) 
1480 A$=REP(W$,A1(L4+2), 1) 


1490 REM ##XXXXXXXX 13 - NO OF SPACES AVAILABLE FOR VERTICAL DESCRIPTION 


1500 L3=(J2-J1+1)%2+(J2-J1) 
1510 IF W$="D" THEN 1540 


1520 PRINT " DESCRIPTION: "; 
1530 GO TO 1550 
1540 PRINT " DESCRIPTION #1: "; 


1550 GOSUB 2810 

1560 GOSUB 2860 

1570 INPUT X$ 

1580 IF LEN(X$)<=L3 AND LEN(X$)<>0 THEN 1610 

1590 PRINT " ";L3;" characters maximum!GG" 
1600 GO TO 1540 

1610 A$=REP(X$,A1(L4+3) ,LEN(X$)) 

1620 IF W$z"S" THEN 920 

1630 PRINT " DESCRIPTION #2: "; 

1640 GOSUB 2810 

1650 GOSUB 2860 

1660 INPUT X$ 

1670 IF LEN(X$)<=L3 AND LEN(X$)<>0 THEN 1700 

1680 PRINT " ";L3;" characters only!GG" 
1690 GO TO 1630 

1700 A$=REP(X$,A1(L4+4) , LEN(X$) ) 

1710 GO TO 920 

1720 FOR 11=1 TO 300 

1730 NEXT 11 
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740 L4=28 

1750 .L1=0 | 

1760 PRINT "LHORIZONTAL DESCRIPTIONSJ" 
1770 L4=L4+2 

1780 L1=L1+1 

1790 IF L1>16 THEN 2042 

1800 PRINT "J DESCRIPTION: " 

1810 PRINT " type '0' when complete" 
1820 IF A2(L1)=0 THEN 1850 

1830 L3=R4-4 

1840 GO TO 1890 

1850 IF A3(L1)=0 THEN 1880 

1860 L3=R4-6 

1870 GO TO 1890 

1880 L3=R4-1 

1890 PRINT " KK"; 

1900 GOSUB 2810 

1910 GOSUB 2860 

1920 INPUT X$ 

1930 IF X$="0" THEN 2042 

1940 IF LEN(X$)<=L3 AND LEN(X$)<>0 THEN 1970 


1950 PRINT "J "SINT(L3);" characters max ітит! СС" 
1960 СО ТО 1800 
1970 PRINT "J LINE? _H"; 


1980 INPUT Y$ 

1990 IF Y$="Y" OR Y$="N" THEN 2020 

2000 PRINT " type а "У" or a 'N'!GG" 
2010 GO TO 1970 

2020 A$=REP(Y$,A1(L4), 1) 

2030 A$=REP(X$,A1(L4+1),LEN(X$)) 

2040 GO TO 1770 


2041 REM HERKHERHHREREARERRERERERREREREERE CHECK THAT ф OF ROWS IS OKAY 


2042 IF L1=>16 THEN 2056 
2043 J1=0 
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044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 


2055 


2056 
2057 
2058 
2059 
2061 
2062 
2063 


2068 


2069 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
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FOR 11=L1 TO 16 


IF А2(11)<>0 THEN 2047 
IF A3(I1)=0 THEN 2049 
J1=1 
11-16 
NEXT 11: 
IF Ј1=0 THEN 2056 
PRINT "JVertical Descriptions can not exceed Horizontal "; 
PRINT "Descriptions. Start over!GG" 
GO TO 170 


REM RE STORE NO OF ROWS (L1) 


L1=L 1-1 

X$=STR(L1) 
X$=REP("",1,1) 
A$=REP(X$,A1(9),LEN(X$)) 
L1=L1+1 

FOR 1121 TO 500 

NEXT 11 


REM кн кек кн PREPARE FOR TAPE STORAGE 


PRINT "L" 

PRINT "JJWhat shall be the name of this Chart? 

PRINT "НННННННННН"; 

INPUT X$ 

IF LEN(X$)<=10 AND LEN(X$)<>0 THEN 2150 

PRINT "Chart name can be a maximum of 10 character 5! са" 

GO То 2080 

INPUT X$ 

Z$=SEG(X$,1,1) 

IF Z$=>"A" AND Z$<="Z" THEN 2190 | 
PRINT "Chart name must begin with an Alphabetic character !GG" 
GO TO 2080 2 
FOR 11=2 TO LEN(X$) 
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2200 2$=SEG(X$,11,1) 


2210 IF Z$=>"A" AND Z$<="Z" OR (Z$=>"0" AND Z$<="9") THEN 2240 
2220 PRINT "No Blanks or Special Characters allowed for Chart name!GG" 
2230 GO TO 2080 

2240 P$=X$ 

2250 FIND 5 

2270 J1=0 

2280 Ј2=0 

2290 FOR 11=1 ТО 100 

2300 READ @33:E$,E1 

2322 IF E$<>"DONE" THEN 2330 

2324 J1=3 

2325 Ј2=11 

2326 11=100 

2328 GO ТО 2346 

2330 ЈЕ E$<>P$ ТНЕМ 2346 

2332 J1=1 

2334 J2=11 

2336 11=100 

2338 GO TO 2346 

2346 NEXT 11 

2350 IF Ј1=3 THEN 2420 

2352 IF J1=1 THEN 2358 

2356 GO TO 2420 

2358 PRINT "J";P$;" already exists as a Chart name. Should it be "; 
2360 PRINT "over-written? Н"; 

2362 INPUT Z$ 

2364 IF Z$="N" THEN 2080 

2366 IF Z$<>"Y" THEN 2358 

2368 FIND E1 


2370 READ @33:Z$ 
2372 Z$=SEG(Z$,A1(9),2) 


2374 L2=VAL(Z$) 

2376 IF L1-1=L2 THEN 2388 

2378 PRINT "ЈТо properly access the associated Data File, this "; 
2380 PRINT "Chart must have " 
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PRINT Le;" Rows. Start over!GG" 
FOR I1=1 TO 500 

NEXT [1 

GO TO 170 

FIND E1 

WRITE @33:A$ 

CLOSE 


PRINT "JA Data File already exists for Chart ";P$;". 


PRINT "it be " 
PRINT "initialized? _H"; 
INPUT Z$ 

IF Z$="N" THEN 2414 

IF Z$<>"Y" THEN 2394 

FIND Е141 

DELETE D9 

DIM D9(L1-1,ü2) 

D9=-1 

WRITE €33:"01/01/50",L1-1,D9 
CLOSE 
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PRINT "JJJJ";P$;" Chart format stored!GG" 


RETURN 
FIND 5 
IF ჰ2=0 ОК Ј2=1 THEN 2428 
FOR I1=1 TO J2-1 
READ @33:E$,E1 
NEXT 11 
Е1=Е 1+2 
WRITE @33:P$,E1 
WRITE @33:"DONE" ,Е1+2 
FIND El 
WRITE @33:A$ 
CLOSE 
FIND E1+1 
GO TO 2406 
FIND 5 
WRITE @33:P$,E1 


TEKTRONIX 4051 PROGRAM 


Should "; 


+ ^ 
а а c ფალ 


PAGENO 39 
ABSTRACT МО 


Gantt Chart 51/07-0102/0 


WRITE €33:"DONE",E1+1 
FIND 6 

WRITE 633:А% 

CLOSE 

FIND 7 

GO TO 2406 


REM ##XXX#X###XXXXX SUBROUTINE - ALL MEMBERS OF X$ MUST BE NUMERIC 


J1=0 
FOR K1=1 TO LEN(X$) 
Z$=SEG(X$,K1, 1) 
IF Z$=>"0" AND Z$<="9" THEN 2780 
J1=1 
K1=LEN(X$) 
NEXT K1 
RETURN 


REM Энн SUBROUTINE - PRINT L3 UNDERLINE CHARACTERS 


FOR K1=1 TO L3 
PRINT " "; 

NEXT K1 

RETURN 


REM HERREN SUBROUTINE - PRINT L3 BACKSPACE CHARACTERS 


FOR K1=1 TO L3 
PRINT "H"; 

NEXT K1 

RETURN 
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TAPE VERSION -- FILE 3 


100 
110 
120 
130 
140 


150 


160 
170 
180 
190 
200 
210 
220 
230 


240 


250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
408 


INIT 

PRINT "LThis Task allows Data Editing." 

DIM H5(1,28),C1(4),C2(3),C3(3),C9(3),F$(51),G$(54),R$(24) 
DIM W$(49),B2(3),B9(3),C$(9),C0(12),D2(3),V$(15),M$(1) 
M$=CHR(13) 


REM YXIXXXXXXEXKEXX** INITIALIZATION OF CALENDAR FUNCTION VARIABLES 


DATA. 31,28,31,30,31,30,31,31,30,31,30,31, 1,7, 3,3 
RESTORE 160 


READ CO,C1 
F$-" JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC " 
N3z-2.713E«288 

V$=STR(N3) 

W$z" SUN MON TUESWEDNES THURS FRI SATUR" 


G$z" DAYS WEEKD MONTHS QUARTERS YEARS" 


REM ********* READ FROM TAPE: R$ - DATE, L1 - # OF ROWS, DQ - DATA 


PRINT "JJWhich Chart? HHHHHHHHHH"; 
INPUT X$ 
IF LEN(X$)<=10 AND LEN(X$)<>0 THEN 300 
PRINT "Chart name must be less than 10 characters!GG" 
GO TO 250 
Z$:SEG(X$,1,1) 
IF Z$=>"A" AND Z$<="Z" THEN 340 
PRINT "Chart name must begin with an Alphabetic character!GG" 
GO TO 250 
FOR 1122 TO LEN(X$) 
2$=SEG(X$,11, 1) 
IF Z$=>"A" AND Z$<="Z" ОК (2%=>"0" AND 2%<="9") THEN 390 
PRINT "No Blanks or Special characters allowed for Chart name!GG" 
GO TO 250 
O$=X$ 
FIND 5 
J1=0 
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le 
416 
424 
428 
432 
436 
440 
444 
448 
452 
468 
476 
480 
484 
488 
492 
496 
500 
504 
508 
512 


570 


580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
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FOR [1121 ТО 100 
READ 633:Е%,Е1 
IF E$<>"DONE" THEN 440 
Jizz 
І1-100 
GO ТО 468 
IF X$<>E$ THEN 468 
41-1 
І1-100 
GO TO 468 
NEXT 11 
IF 91-1 THEN 492 
IF Jize THEN 484 
PRINT "JChart ";X$;" is not stored оп this Tape!GG" 
GO TO 250 
FIND E1+1 
READ @33:R$,L1 
DELETE 09 
DIM D9(L1,28) 
FIND E1+1 
READ @33:R$,L1,D9 


REM Кн P$ а R$ - DATE FOR FIRST COLUMN OF DATA 


Z$=R$ 
PRINT "JJJBeginning Data Date is "SR$;". Is this correct? "; 
INPUT Y$ 

GOSUB 3380 

P$-R$ 

IF Y$="Y" THEN 770 

IF Y$<>"N" THEN 590 

PRINT "JNew Date: HHHHHHHH"; 
INPUT R$ 

GOSUB 3380 

IF H1<>0 THEN 650 

GOSUB 3040 
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| 
E 
BET =a 


‚00 B$=SEG(W$,6%C7+1,6) 

710 IF B$=" SUN" THEN 740 

720 PRINT R$;" is а ";B$;". Indicate a Sunday!GG" 

730 GO TO 650 

740 P$=R$ 

750 GOSUB 2390 

760 REM #X#%%#%X%X#%X XX XX X  X  X X X # X X X DATA EDITING 
779 PRINT "LDuring Data modification, type:J" 

780 PRINT " <CR> if present value is correct;" 

790 PRINT" -1 if value is not to print; ог " 

800 PRINT" О if it is to be calculated." 

810 PRINT "JJJTyping a '0' for any of the following Questions will "s 
820 PRINT "cause an exit from the indicated Process." 
830 R$=P$ 

840 PRINT "JJDo you want to go thru each Week(1), only selected "; 
850 PRINT "Weeks(2), or Neither(0)? Н"; 

860 INPUT Y$ 

870 IF Y$z"O" THEN 1820 

880 IF Y$z"1" THEN 1130 

890 IF Y$<>"2" THEN 840 

900 R$=P$ 

910 GOSUB 3380 

920 B2=C2 

930 С3-С2 

940 GOSUB 3380 

950 GOSUB 3040 

960 21-С8 

970. PRINT "JWhich Date: HHHHHHHH"; 

980 INPUT R$ 

990 IF R$="0" THEN 770 

1000 GOSUB 3380 

1010 IF H1<>0 THEN 970 

1020 B2=C2 

1030 C3=C2 
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1040 GOSUB 3040 


1050 21-С8-21 

1060 IF 21:20 AND Z1<=27 THEN 1090 

1070 PRINT R$;" is out of the 28-Week range!GG" 

1080 . GO TO 900 

1090 1122141 

1100 GOSUB 1290 

1110 GO TO 900 

1120 REM 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 22 2 2 2 2 2 хх LOOP THRU EACH COLUMN 
1130 С5=0 

1140 R$=P$ 

1150 GOSUB 3380 

1160 FOR 11=1 TO 28 

1170 REM RR FIND DATE FOR THIS COLUMN 
1180 GOSUB 2720 

1190 PRINT M$;"JJ" | 

1200 PRINT "Should Data for ";C2(1);"/";C2(2);"/";C2(3);" Бе Модібіра?"; 
1210 PRINT" H"; 

1220 INPUT Y$ 

1230 IF Y$="0" THEN 1760 

1240 IF Y$="N" THEN 1740 

1250 IF Y$<>"Y" THEN 1200 

1260 GOSUB 1290 

1270 GO TO 1740 

1280 REM ИЕМЕН # # # # X X # X X ## # # ####% [OOP THRU EACHÍ ROW 
1290 FOR I2=1 TO L1 

1300 Ү%-5ТЕ(р9(12,11)) 

1310 Y$=REP("", 1,1) 

1320 41-Р05(Ү%,".",1) 

1330 IF 41-0 THEN 1390 
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1340 Y$=REP("/",J1,1) 

1350 Y$=REP("" ,LEN(Y$)-1,2) 

1360 IMAGE 6A,2D,2A,6A, 154 

1370 IF Y$<>"1/0E" THEN 1390 

1380 Y$="0/00" 

1390 | PRINT USING 1360:" Row ";I2;"W; ";Ү$;" HHHHHH" 
1400 PRINT " K"; 

1410 INPUT X$ 

1415 IF X$="-1" THEN 1700 

1420 ТЕ LEN(X$)<=6 ТНЕМ 1450 

1430 PRINT " 6 Characters maximum!GG" 
1440 GO TO 1390 

1450 IF LEN(X$)=O THEN 1720 

1460 REM XXX SUBROUTINE - ALL CHARACTERS OF X$ MUST BE NUMERIC ФЕ A "/! 
1470 J1=0 

1480 FOR K1=1 TO LEN(X$) 

1490 Z$=SEG(X$,K1, 1) 

1500 IF Z$=>"0" AND Z$<="9" OR Z$="/" THEN 1530 
1510 J1=1 

1520 K1=LEN(X$) 

1530 NEXT K1 

1540 IF J1=0 THEN 1580 

1550 PRINT " Type only numbers and, optionallp, "; 
1560 PRINT " a '/'1GG" 

1570 GO TO 1390 

1580 J1=POS(X$,"/",1) 

1590 IF 41-0 THEN 1700 

1600 IF J1+3>LEN(X$) THEN 1650 

1610 Z$=SEG(X$,J1+3,1) 

1620 IF Z$=" " THEN 1650 

1630 PRINT "Only two numbers allowed after the '/'!GG" 
1640 GO TO 1390 

1650 X$zREP(".",J1,1) 

1660 U1=VAL(X$) 
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1670 02-1.0Е-4 

1680 01-01-02 

1690 GO ТО 1710 

1700 U1=VAL(X$) 

1710 | D9(12,11)=U1 

1720 NEXT 12 

1730 RETURN 

1740 C5=1 

1750 GO TO 1770 

1760 11-42 

1770 NEXT I1 

1780 GO TO 770 

1790 REM ##XXXM#XIXXMXMXXMM#%#XX%##XMXMXMX%MXXMXXჯ%##MMX%XMჯ#%X%#%##%X#X%% TOTAL CALCULATIONS 
1800 REM *** L2 - NO OF ROWS TO BE ADDED TOGETHER * L3 - # OF TOTAL ROW 
1810 REM * H2 - ARRAY OF ROW #s TO BE ADDED * H5 - ARRAY OF SUMMED DATA 
1820 PRINT "LTotal Calculations" 

1830 PRINT "JJHow many Rows? _ (type '0' when complete)" 

1840 PRINT " K"; | 

1850 INPUT L2 

1860 IF L2<=0 THEN 2260 

1870 IF L2=>1 AND L2<=L1 THEN 1900 

1880 PRINT "Only ";L1;" Rows exist!GG" 

1890 GO TO 1830 

1900 DELETE He 

1910 DIM H2(L2) 

1920 PRINT "JIndicate Rows: ს 
1930 PRINT " K"; 

1940 INPUT He 

1950 PRINT "JIndicate Total Row й: _ HH"; 

1960 INPUT L3 

1970 IF L3=>1 AND L3<=L1 THEN 1990 

1980 GO TO 1880 

1990 Ј1=0 

2000 FOR 1121 ТО Le 
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-010 IF H2(11)=>1 AND Н2(11)<-11 THEN 2060 

2020 PRINT "Row #";H2(I1);" is outside Row Range. Row #'s must "; 
2030 PRINT "fall between 1 and ";L1;"!GG" 

2040 J1=1 

2050 GO TO 2100 

2060 "ТЕ H2(11)<>L3 THEN 2100 

2070 PRINT "Row #";Н2(11);" to be Added is the same as the Total Кой"; 
2080 PRINT "#"; 03; ", They must be different!GG" 
2090 J1=1 

2100 NEXT 11 

2110 IF J1=1 THEN 1830 

2120 H5=0 

2130 REM МИЯ ADD 1 ROW AT A TIME ACROSS ALL 42 DATA COLUMNS 
2140 FOR 1121 TO L2 

2150 FOR I2=1 TO 28 

2160 IF D9(H2(11),12)<0 THEN 2190 

2170 H5(1,12)=H5(1,12)+D9(H2(11),12) 

2180 GO TO 2200 

2190 Н5(1,12)=-1 

2200 NEXT 12 

2210 NEXT I1 

2220 FOR 1121 TO 28 

2230 D9(L3,11)=H5(1,11) 

2240 NEXT 11 

2250 GO TO 1820 

2260 GOSUB 2390 

2270 PRINT "LWould you like to go thru the Editing process again? _H"; 
2280 INPUT Y$ 

2290 IF Y$="Y" THEN 580 

2300 IF Y$<>"N" THEN 2270 

2310 FIND E1+1 

2320 WRITE €33:P$,L1,D9 

2330 CLOSE š 

2340 PRINT "JJBeginning Date, Number of Rows, and the Weekly Data "; 
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2350 
2360 
2370 


2380 


2390 
2400 
2410 
2420 
2430 


2440 


2450 
2460 


2470 


2480 
2490 
2500 


2510 


2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
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PRINT "has beer, stored in the Data File for Chart "; 
PRINT O$;"!GG" 
RETURN 


REM RRR EHH MM X  X X X X X X X X #X # ###% SUBROUTINE - LIST DATA 


PRINT "LWould you like а Print-out of the existing Data? Н"; 
INPUT Y$ 

IF Y$="N" THEN 2660 

IF Y$«»"Y" THEN 2390 

R$=P$ 


REM #%M%#M##%#%X%X#M%XX XXX X X X X  X X X  X X X # X LOOP THRU EACH COLUMN 


C5=0 
FOR 11=1 TO 28 


REM зана FIND DATE FOR THIS СО 


GOSUB 3380 
GOSUB 2720 
PRINT M$;"JJCOLUMN: ";I1;" (9"9;C2(1);"/"9";C2(2);"/W;C2(3);")" 


REM X 3635 3635 AE 6 0096 HH JE BE AE JE JE E JE IE JE JE IE IE JE AEAEE AEAEE AEAEE [OOP THRU EACH 


FOR І2-1 TO L1 
Y$=STR(D9(12,11)) 
IF Y$<>" 1.0E-4" THEN 2570 
Y$z"0/0" 
GO TO 2620 
Y$=REP("" 1,1) 
ІЗАРО5(У6,".", 1) 
IF 1320 THEN 2620 
Y$=REP("/", 13,1) 
Y$z:REP("",LEN(Y$)-1,2) 
PRINT f Rw;I2;": ";Ү$;" n; 
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2630 NEXT 12 
2640 C5=C5+1 
2650 NEXT 11 
2660 PRINT M$;"JJJTo continue, type <CR>. "; 
2670 INPUT Y$ 
2680 RETURN 
2690 REM ##%#X#%#XX###X#XXX#XXX SUBROUTINE - DATE + OR - C5 TIME SEGMENTS 
2700 REM ###X+X##XMX%MMX##%XM#%MXXXXX% C2=(mm,dd,yy) C5=# of time segments 
2710 REM KR Ti=time mesh * C6,C7=scratch 
2720 IF C5=0 THEN 2820 
2730 C6=SGN(C5) 
2740 Т1=2 
2750 GO TO T1 OF 2760,2760, 2950, 2950, 2970 
2760 С2(2)-С2(22%С1(712%С5 
2779 С0(2)=28 
2780 IF 0.25*C2(3)<>INT(0.25%*C2(3)) THEN 2800 
2790 С0(2)=29 
2800 IF C2(2)<1 OR C2(2)>CO(C2(1)) THEN 2830 
2810 C0(2)228 
2820 RETURN 
2830 IF C6+1 THEN 2920 
2840 C2(1)=C2(1)+C6 
2850 IF C2(1)=>1 AND C2(1)<=12 THEN 2900 
2860 С2(3)=С2(3)+С6 
2870 С2(1)=С2(1)-12*С6 
2880 IF T1>2 THEN 2850 
2890 GO TO 2910 
2900 IF T1>2 THEN 2990 
2910 IF C6+1 THEN 2770 
2920 C2(2)=C2(2)-C6%#CO(C2(1)) 
2930 IF C6+1 THEN 2840 
2940 GO TO 2770 
2950 C2(1)=C2(1)+C1(T1) #С5 
2960 GO TO 2850 
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-970 С2(3)=С2(3)+С5 

2986 GO TO 2810 

2990 С2(2)=С2(2) MIN CO(C2(1)) 

3000 GO TO 2810 

3010 ` REM ###%##%#XX####X#### SUBROUTINE - DAY #, WEEK #, & DAY OF THE WEEK 
3020 REM нк Cüsday # * C8-week ў * C7=day of week 
3030 REM к C2=(mm,dd,yy) * B3=scratch 
3040 C4=0.25%C2(3)=INT(0.25%C2(3)) AND C2(1)>2 

3050 IF C2(1)=1 THEN 3090 

3060 FOR В3=1 TO С2(1)-1 

3070 C4=C4+C0(B3) 

3080 NEXT B3 

3090 C4zC44C2(2)4365*C2(3) «INT(0.25*(C2(3)-1)) 

3100 C8=1NT(C4/7)+1 

3110 CTzC4-(C8-1)*74«1 

3120 RETURN 

3130 REM Фиииииииииииииниииии SUBROUTINE - TIME SEGMENTS BETWEEN DATES 
3140 REM океан EEE X # X # X X X X # # # ЕНЕ T1- Lime mesh 
3150 REM Жк 156 date=B2=(mm,dd,yy) Ф c8=# of time segments 
3160 REM **** 2nd date=C3=(mm,dd,yy) й B2,B3,C0,C2,C4,C5,C6,C7=scratch 
3170 1122 

3180 GO TO T1 OF 3190,3190, 3300, 3300, 3330 

3190 C2=C3 i 

3200 GOSUB 3040 

3210 Сбасц 

3220 C6=C8 

3230 C2=B2 

3240 GOSUB 3040 

3250 IF T1=2 THEN 3280 

3260 С8-С5-СЧ 

3270 RETURN 


3280 C8=C6-C8 
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2-90 RETURN 

3300 C8=INT((C3(1)+2)/C1(T1))-INT((B2(1)+2)/C1(T1)) 

3310 C8=12/C1(T1)#(C3(3)-B2(3))+C8 

3320 RETURN 

3330 C8=C3(3)-82(3) 

3340 RETURN 

3350 REM аказанне SUBROUTINE = DATE ENTRY VERIFY 
3360 REM EEXAERARAANUARARENR Н- ар (118=bad O=OK) # R$=date string 
3370 REM ###XXXX C2=(mm,dd,yy) * C7=pos ОҒ 1st "/" % C8zpos of end "/" 
3380 H1=0 

3390 T1=2 

3400 C7=POS(R$,"/",1) 

3410 C8=POS(R$,"/",C7+1) 

3420 C2(2)=1 

3430 B$=SEG(R$,(C8 MAX C7)+1,LEN(R$)-(C8 MAX C7)) 

3440 B$=B$&V$ 

3450 C2(3)=VAL(B$) 

3460 IF C2(3)<>N3 AND C2(3)=>1 AND C2(3)=INT(C2(3)) THEN 3490 

3470 H1=118 

3480 GO TO 3840 

3490 IF C7<>0 THEN 3530 

3500 IF T1<>5 THEN 3470 

3510 C2(1)=1 

3520 RETURN 

3530 B$=SEG(R$,1,C7-1) 

3540 IF B$<>"END" THEN 3590 

3550 IF T1<>5 AND C8<>0 THEN 3470 

3560 С2(1)=12 

3570 С2(2)=31 

3580 RETURN 

3590 B$=B$&V$ 

3600 C2(1)=VAL(B$) 

3610 IF C2(1)=N3 OR C2(1)>12 OR C2(1)<>INT(C2(1)) OR C2(1)<1 THEN 3470 
3620 IF C8<>0 THEN 3680 
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IF T1<3 OR T1=5 THEN 3470 
Ce(1)=C1(T1)#(C2(1)-1)+1 
C2(1)=C2(1)+C9(1)-C1(T1)#INT(C9(1)/C1(T1)-0.2)-1 
IF C2(1)>12 THEN 3470 
RETURN 
С0(2)=28 
IF 0.25*C2(3) INT(0.25*C2(3)) THEN 3710 
С0(2)-29 
B$=SEG(R$,C7+1,C8-C7-1) 
IF B$<>"END" THEN 3780 
IF T1<3 OR T1>4 THEN 3470 
C2(1)=C1(T1)*Ce(1) 
IF Се(1)>12 THEN 3470 
С2(2)=С0(С2(1)) 
RETURN 
B$=B$&V$ 
C2(2)=VAL(B$) 
IF C2(2)=N3 OR C2(2)<>INT(C2(2)) OR C2(2)<1 THEN 3470 
IF C2(2)>C0(C2(1)) THEN 3470 
C0(2)=28 
RETURN 
PRINT "Invalid Date!GG" 
RETURN 
FOR R1=1 TO 42 
FOR R2=1 ТО L1 
PRINT "ROW ";R2;"COLUMN ";R1;": и; 
INPUT D9(R2,R1) 
NEXT R2 
NEXT Ri 
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TITLE ABSTRACT NO. 


Gantt Chart 51/07-0102/0 


TAPE VERSION -- FILE 4 

00 INIT 

110 PRINT "LThis Task generates GANTT Chart." 
560 M9=MEMORY 

570 DIM A1(61),A2(16) ,A3(16) ,A4(12) ,A5( 12) ,K$(300),S(321) 
580 DIM C1(4) ,C2(3) ,C3(3) ,C9(3) ,F$(51) ,G$(54) , R$(24) ,V$(15) ,W$(48) 
590 DIM B2(3),B9(3),C$(9),C0(12),D2(3),D5(3),H2(3) 
600 DATA 31,28, 31, 30, 31, 30, 31, 31, 30, 31, 30,31,1,7,1,3 
610 N6=0 

620 RESTORE 600 
630 READ CO,C1 
650 F$=" JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC " 
660 N3=-2.713E+288 
670 V$=STR(N3) 
680 W$=" SUN MON TUESWEDNES THURS FRI SATUR" 
690 G$=" DAYS WEEKS MONTHS QUARTERS YEARS" 


710 REM .....strokes..... 


` 
` 


` ` ~ 


Q) — OW NW — — ~ 


~“ - ~ ~ 


@ ғ еч ~ 
соло O \л \л O OW + 


. ~ 
. ~ ~ ~ ~ ~ 


სა UU Dw ENO = — 
ч о ასას Ü O wl uw u 
ооо — O O — თ — OW 

е ғ ~ ~ ~ ә ғ ~ о 
N VO WN MW O fo Io 


830 DATA 25,0,1,3,15,35,37,45,59,61,59,71,82,92,92,92, 104, 108, 108 
840 DATA 112,112, 120, 129, 129, 138, 140, 146, 158, 154, 168, 168, 181, 189, 191 
850 DATA 189,197,204,216,224,234 
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LC 


Gantt Chart 


870 
880 
890 
900 
910 
930 
940 
950 
960 
990 
1000 
1010 
1020 
1050 
1060 
1070 
1080 


1130 E 


1140 
1150 


1160 E 


1170 


1180 E 


1190 


1200 E 
1210 E 


1220 
1240 
1250 
1260 
1270 
1280 
1290 
1310 
1320 
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DATA 34,0,16,16,24,48,48,58,66,66,70,84,93,101,101,103,111,115,113 
DATA 123, 123, 129, 138, 136, 147, 145, 155, 167, 167, 177, 181, 188, 196, 194 


DATA 204,204,217, 223,233,241 
RESTORE 720 
READ S 

G1=0 

62-0 

03-130 
G4=100 

G5=5 

G6=3 

G7=3 
G8=0.5 


DATA 1,16,31,76,92,98, 128, 158, 166, 168, 170, 172, 173, 203, 233,235 

DATA 237,238, 268,298, 300, 302, 303, 333, 363, 365, 367, 368, 398,428,429 
DATA 459, 460,490,491,521,522,552,553,583,584,614,615,645 , 646, 676 
DATA 677,707,708 ,738,739,769,770,800, 801,831,832, 862, 863,893,894 


RESTORE 1240 

READ A1 

FOR 11=1 TO 16 
A2(11)=0 
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13307 A3(11)=0 
1340 NEXT 11 - 


РАСЕ NO: 54 
ABSTRACT NC: 
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1370 PRINT "JJWhat is the Name of the GANTT Chart? " 


1380 PRINT " 
1390 INPUT P$ 


1400 FIND 5 . 

1404 J1=0 

1406 FOR I1=1 TO 100 

1408 READ 633:Е%,Е1 

1412 IF E$<>"DONE" THEN 1420 
1414 41-2 

1416 112100 

1418 GO TO 1434 

1420 IF P$<>E$ THEN 1434 
1422 J1=1 

1424 11=100 

1426 GO TO 1434 


1434 NEXT 11 
1438 IF J1=1 THEN 1446 
1440 IF 71:2 THEN 1442 


K" : 


1442 PRINT "J";P$;" Chart does not exist on this Tape!GG" 


1444 GO TO 1370 

1446 FIND E1 

1510 DELETE 1, 1500 
1512 DIM A$(923) 

1514 READ @33:A$ 

1516 FIND E1+1 

1518 READ @33:R$,L1 
1600 DELETE 1400, 1590 
1602 M9=MEMORY 

1604 DELETE D9 

1606 DIM D9(L1,28) 
1608 FIND E1+1 

1610 READ @33:R$,L1,D9 
1670 GOSUB 9050 

1680 GOSUB 8720 
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.690 ° 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1786 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
2000 
2010 
2020 
2030 
2040 
2050 
2060 


21-С8 
Z$=R$ 
PRINT "J JBeg inning Data Date is ";Z$ 
PRINT "Indicate beginning Column Date: HHHHHHHH"; 
INPUT R$ 
GOSUB 9050 
ЈЕ H1 THEN 1720 
GOSUB 8720 
21-С8-21 
IF 21:20 AND Z1<=27 THEN 1830 
PRINT "Beginning Date must be within 28 weeks of ";Z$ 
PRINT R$;" is ";Z1;" weeks from ";Z$ 
R$=Z¢ 
GO TO 1670 
B$=SEG(W$,6*C7+1,6) 
IF B$=" SUN" THEN 1880 
PRINT R$;" is ";B$;". Select а Sunday!GG" 
R$=Z$ 
GO TO 1670 
N5=Z1 
I2=0 
PRINT "LRow Descriptions for Chart ";P$;"J" 
FOR 11-30 TO 61 STEP 2 
12=12+1 
Y$=SEG(A$,A1(11),1) 
IF Y$z" " THEN 2000 
X$=SEG(A$,A1(11+1),30) 
PRINT" ROW ";I2;": ";Х% 
GO TO 2000 
NEXT 11 
PRINT "JJIndicate the 3 Rows to be Graphed: HHHHHHHH" 
PRINT "(If necessary, type O's to make 3) K"; 
INPUT 82 
Іг-0 
FOR 1121 ТО 3 
IF Н2(11)=0 THEN 2100 
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„070 
2080 
2090 
2100 
2110 
2120 
2130 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2210 
2280 
2290 
2300 
2310 
2320 
2339 
2350 
2360 
2365 
2379 
2375 
2380 
2390 
2410 
2420 
2430 


"чт mee 


ЈЕ Не(11):21 AND H2(11)<=L1+1 THEN 2100 
1153 
І2=1 
NEXT I1 
IF 12=0 THEN 2150 
PRINT "Rows must be between 1 and ";L1;"!GG" 
GO TO 2010 
PRINT "LLegend name for :J" 
IF H2(1)=0 THEN 2220 
PRINT." Row ";H2(1);": ННННННННННННННН"; 
INPUT O$ 
IF LEN(O$)<=15 AND LEN(O$)<>0 THEN 2220 
PRINT " 15 characters maximum!GG" 
GO TO 2170 
IF H2(2)=0 THEN 2280 
PRINT" Row ";H2(2);": ННННННННННННННН"; 
ІМРОТ P$ 
IF LEN(P$)<=15 AND LEN(P$)<>0 THEN 2280 
PRINT " 15 characters maximum!GG" 
GO TO 2230 
IF H2(3)=0 THEN 2350 
PRINT" Row ";H2(3);": HHHHHHHHHHHHHHH"; 
INPUT Q$ 
IF LEN(Q$)<=15 AND LEN(Q$)<>0 THEN 2350 
PRINT " 15 characters maximum!GG" 
GO TO 2290 
N1=0 
FIND El+1 
DELETE 1510,2360 
DELETE D9 
M9=MEMORY 
DIM D9(L1,28) 
READ @33: Y$,11,D9 
N1=0 
№2=9999999 
22-21%13 MIN 27 
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-440 
2450 
2460 
2470 


2480 . 


2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 


FOR [2-1 TO 3 
FOR 11=21+1 ТО 22+1 
IF Н2(12)=0 THEN 2530 
N3=D9(H2(12),11) 
IF N3<=N1 THEN 2500 
“ N1=N3 
IF N3=>N2 THEN 2520 
NezN3 
GO TO 2540 
11=22+1 
NEXT 11 
NEXT 12 
IF №=>0 THEN 2580 
N2=0 
PRINT "JJJThe minimum Y value of the selected Rows is "SINT(N2) 
PRINT "and the maximum Y value is ";INT(N1) 
PRINT "JIndicate graph's:" 


PRINT " Minimum Y value: HHHHHH"; 
INPUT H5 
PRINT " Maximum Y value: HHHHHH"; 
INPUT H6 
PRINT " Interval : HHHHHH"; 
INPUT H7 


13=(H6-H5)/H7 

13=13-INT(13) 

IF 1320 THEN 2720 

PRINT "Interval must evenly divide into the range!GG" 


GO TO 2580 

PRINT "JJJShall the Chart be generated on the Screen(32) or on" 
PRINT "the Plotter(1)? | НН"; 

INPUT D1 

IF D1=32 OR D1=1 THEN 2780 

PRINT " type '32' or '1' please!GG" 

GO TO 2720 

IF D1=32 THEN 2840 

PRINT "JReady Plotter!GG" 
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2800 PRINT "Io continue, type «CR». "; 
2810 INPUT Y$ | 

2840 PRINT @32:"L" 

2850 29=G5+G6*2+G7+G8 

2860 MOVE @D1:G1,G4-Z9-L1*R1 

2870 DRAW @D1:G3,G4-Z9-L1*R1 

2880 DRAW @D1:G3,G4 

2890 DRAW @D1:G1,G4 

2900 DRAW @D1:G1,G4-Z9-L1*R1 

2910 MOVE @D1:G1,G4-G5 

2920 DRAW @D1:G3,G4-G5 

2930 MOVE 6D1:R4«G8,G4-G5-G6 

2940 DRAW @D1:G3,G4-G5-G6 

2950 MOVE 6D1:R44G8,G4-G5-G6*2 
2960 DRAW €D1:G3,G4-G5-G6*2 

2970 MOVE @D1:G1,G4-G5-G6*2-G7 
2980 DRAW €D1:G3,G4-G5-G6*2-G7 
2990 MOVE @D1:G1,G4-G5-G6*2-G7-G8 
3000 DRAW 6D1:G3,G4-G5-G6*2-67-G8 
3010 MOVE @D1:R4,G4-G5 

3020 DRAW @D1:R4,G4-G5-G6*2-G7-G8-L1*R1 
3030 MOVE @D1:R4+G8,G4-G5 

3040 DRAW @D1:R4+G8,G4-G5-G6*2-G7-G8-L1*R1 
3060 IF D1=32 THEN 3100 

3070 PRINT 6D1,25:90,90 

3080 PRINT €D1,17:E5,E6 

3090 GO TO 3120 

3100 X6=E5 

3110 Y6=E6 

3120 FOR 11:10 TO 28 STEP 5 

3130 V$=SEG(A$,A1(11),2) 


3140 IF Уфа" " THEN 3410 
3150 Z2=VAL(V$) 
3160 U$=SEG(A$,A1(11+1),2) 
3170 Z3=VAL(U$) 
3180 Х%-5ЕС(А%,А1(11-2),1) 
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3190 
3210: 
3220 
3240 
3250 
3270 
3280 
3290 
3300 
3310 
3320 
3340 
3350 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 


Y$=SEG(A$,A1(I1+3),30) 
IF X$="S" THEN 3340 
Z$=SEG(A$,A1(I1+4),30) 
MOVE €D1:5,G4-Z9-=R1*(Z2-1) 
DRAW 6D1:5,G4-Z9-R1*23 
IF D1=32 THEN 3430 
MOVE 6D1:2,G4-Z9-R1*2340.5 
PRINT 6D1:Y$ 
MOVE 6D1:4.5,G4-Z9-R1*Z2340.5 
PRINT @D1:Z$ 
GO TO 3430 
MOVE 6D1:3,G4-Z9-R1*(Zz-1) 
DRAW 6D1:3,G4-Z9-R1*Z3 
IF D1=32 THEN 3430 
MOVE 6D1:2.5,G4-Z9-R1*23«0.5 
PRINT 6D1:Y$ 
GO TO 3430 
11228 
GO ТО 3490 
FOR 13222 ТО 23 
IF X$="S" THEN 3470 
A3(13)=1 
GO TO 3480 
A2(13)=1 
NEXT 13 


3490 NEXT 11 

3500 IF 01-32 THEN 3530 
3510 PRINT €D1,25:0,0 

3530 GO TO 3760 

3540 FOR 11=10 TO 28 STEP 6 


3550 
3560 
3570 
3580 
3590 
3610 


000-6405-02 


X$-SEG(A$,A1(I1),2) 
Y$:SEG(A$,A1(I141),2) 
Z$zSEG(A$,A1(I1«2),1) 
Z2=VAL(X$) 

Z3=VAL(Y$) 

IF Z$z" " THEN 3760 
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0030 IF 26-"2" THEN 3710 
3660 FOR 12-22 TO 23 

3670 А2(12)=1 

3680 NEXT Ie 

3690 GO TO 3740 

3710 FOR I2=Z2 TO Z3 

3720 A3(I2)=2 

3730 NEXT Ie 

3740 NEXT I1 

3760 I2=0 

3770 FOR 11-30 TO 61 STEP г 
3780 X$=SEG(A$,A1(11),1) 
3800 Y$:SEG(A$,A1(1141),30) 
3810 IeslZ+1 ` 

3815 IF I2>L1 THEN 4020 
3820 IF А2(12)-0 THEN 3850 


3830 Z1=G1+3.5 
3840 GO TO 3890 
3850 IF A3(I2)=0 THEN 3880 
3860 Z1=G1+5.5 
3870 GO TO 3890 


3880 Z1=G1+0.5 

3890 IF D1<>32 THEN 3950 

3900 Х7-21 

3910 ҮТ-С4-29-Е1%І12-0.5 

3920 K$=Y$ 

3930 GOSUB 8240 

3940 GO TO 3980 

3950 PRINT @D1,17:E5,E6 

3960 MOVE 6D1:21,G4-Z9-R1*I240.5 
3970 PRINT 001: 75 

3980 IF X$="N" OR X$<>"Y" THEN 4030 
3990 MOVE @D1:G1,G4-Z9-R1#Iz 
4000 DRAW €D1:G3,G4-Z9-R1*I2 
4010 GO TO 4030 

4020 11=61 
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4030 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4242 
4244 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 


МЕХТ 11 


X$=SEG(A$,A1(1),15) 
Y$=SEG(A$,A1(2),15) 
IF D1=32 THEN 4100 
PRINT 601,17:Е1,Е2 
GO TO 4120 

X6=E1 

Үб-Ег 

IF Y$=" 

IF D1=32 THEN 4230 
MOVE #01:0.5,04-2.5 
PRINT @D1:X$ 

MOVE @D1:0.6,G4-2.4 
PRINT @D1:X$ 

MOVE @D1:0.5,G4-4.7 
PRINT @D1: Y$ 

MOVE 6D1:0.6,G4-4.6 
PRINT 6D1:Y$ 

GO TO 4510 
Y7:64-2.4 

X7=0.5 

X6=E3 

Y6=E3 

K$=X$ 

GOSUB 8240 
YTzG4-2.3 

X7=0.6 

GOSUB 8240 
Y7=G4-4 .6 

ХТ=0.5 

К$=У$ 

GOSUB 8240 
Ү7-С4-4.5 

X7=0.6 

GOSUB 8240 

GO TO 4510 
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280 IF р1=32 THEN 4450 
4390 MOVE 6D1:0.5,Ga-4 - 
4400 PRINT @D1,17:E3,E4 
4410 PRINT @D1:X$ 
4420 MOVE @D1:0.6,G4-3.9 
4430 PRINT 6D1:X$ 
4440 GO TO 4510 
4450 Х720.5 
4460 Y7=G4-4 
4470 X6=E3 
4480 Ү6-Е4 
4490 K$=X$ 
4500 GOSUB 8240 
4510 IF D1=32 THEN 4560 
4520 PRINT 601, 17:Е5, E6 
4530 MOVE @D1:8,G4-13 
4540 PRINT @D1:"A C TI У І T Y" 
4550 GO TO 4620 
4560 X7=8 
4570 X6=E5 
4580 Y6=E6 
4590 Y7=G4-13 
4600 K$="A C T I V І Т Y" 
4610 GOSUB 8240 
4620 X$=SEG(A$,A1(4) , 16) 
4630 IF D1=32 THEN 4670 
4640 MOVE @D1:G3-17,G4-4 
4650 PRINT 6D1:X$ 
4660 GO TO 4710 
4670 X7=G3-17 
4680 Y7=G4-4 
4690 K$zX$ 
4700 GOSUB 8240 
4710 X$=SEG(A$,A1(3),45) 
4720 GOSUB 7670 
4730 IF D1=32 THEN 4780 
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‚#0 PRINT @D1,17:E3,Eqd 
4750 MOVE 601:25.5,64-4 
4760 PRINT 6D1:X$ 
4770 GO TO 4840 
4780 X6=E3 
4790 Y6=E4 
4800 X7=25.5 
4810 Y7=G4-4 
4820 K$=X$ 
4830 GOSUB 8240 
4840 X$=SEG(A$,A1(6) , 30) 
4850 Ү%-5ЕС(А%,А1(7),30) 
4860 IF D1=32 THEN 4930 
4870 PRINT @D1,17:E9,E0 
4880 MOVE 6D1:0.5,0 
4890 PRINT @D1:Y$ 
4900 MOVE 6D1:0.5,1.5 
4910 PRINT 6D1:X$ 
4920 GO TO 5030 
4930 X6=E9 
4940 Y6zEO 
4950 X7=0.5 
4960 Y7=0 
4970 K$=Y$ 
4980 GOSUB 8240 
4990 Y7=1.5 
5000 Х7-0.5 
5010 K$zX$ 
5020 GOSUB 8240 
5030 X$=SEG(A$,A1(5) ,6) 
5040 IF р1=32 THEN 5080 
5050 MOVE @D1:G3-5.7,2.5 
5060 PRINT 6D1:X$ 
5070 GO TO 5140 
5080 X7=G3-5.7 
5090 Ү7-2 
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“0 
5110 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5360 
5370 
5380 
5390 
5400 
5420 
5430 
5450 
5460 
5470 
5480 
5490. 
5500 
5510 
5520 
5530 


000-6405-02 


K$zX$ 


GOSUB 8240 


MOVE 6D1:R4«G8,4 
DRAW @D1:R4+G8,G4-Z9-L1*R1-G8 
MOVE €D1:G3,G4-Z9-L1*R1-G8 
DRAW 6D1:G3,4 
IF D1=32 THEN 5210 
PRINT @D1,17:E7,E8 
GO TO 5260 
X6=E7 
Y6=E8 
44-0 
45-0 
Z1=N5 
21=21+1 
22=72+1 
22221+13 MIN 42 
Z3=(G3-R4-G8)/(Z2-Z1+1) 
25-К4+08+0.5-23 
27=64-29+0.5 
FOR 11221 ТО 22 
Ј4=Ј4+1 
Ј5=Ј5+1 
29227 
25225423 
FOR I2=1 ТО L1 
28=28-Е1 
IF D9(I2,I1)«0 THEN 5790 
Y$=STR(D9(I2,11)) 
IF Y$<>" 1.0E-4" THEN 5500 
Y$=" 0/00" 
GO TO 5680 
Y$=REP("",1,1) 
I3=POS(Y$,".",1) 
ТЕ 13=0 THEN 5580 
IF LEN(Y$)=>8 THEN 5640 
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2240 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5710 
5780 
5790 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5910 
5920 
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FOR 1321 TO 8-LEN(Y$) 
уф-" "&Y$ 
NEXT I3 
GO TO 5640 
IF LEN(Y$)=>6 THEN 5640 
„РОК I3=1 TO 6-LEN(Y$) 
Уфа" "&Y$ 
NEXT I3 
GO TO 5680 
I3=POS(Y$,".",1) 
IF 13=0 THEN 5680 
Y$=REP("/" I5, 1) 
Y$=REP("" ,LEN(Y$)-1, 2) 
IF D1=32 THEN 5730 
PRINT @D1,17:E7,E8 
MOVE 6D1:25,28 
PRINT 6D1:Y$ 
GO TO 5790 
X6=E7 
Y6=E8 
X7=Z5 
Ү7-28 
K$=Y$ 
GOSUB 8240 
NEXT 12 
IF D1<>32 THEN 5880 
Х7=25+23-4.5 | 
Y72G4-29+G8+0.5 
K$=STR(C2(2)) 
K$=REP("",1,1) 
GOSUB 8240 
GO TO 5910 
MOVE @D1:25+23-4.5,G4-29+G8+0.5 
PRINT @D1:C2(2) 
D5=C2 
C5=1 
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5930 GOSUB 8400 | 
5940 IF D5(1)=C2(1) THEN 6330 

5950 IF D1<>32 THEN 6040 

5960 X7=25-(J4*Z3/2-1.5)+23/2 

5970 Y7=:G4-29+G8+0.5+G7 

5980 B$=SEG(F$,4*C2(1)-4,4) 

5990 IF B$<>" J" THEN 6010 

6000 B$="DEC" 

6010 K$=B$ 

6020 GOSUB 8240 

6030 GO TO 6100 

6040 MOVE 6D1:25-(J4*23/2-1.5)423/2,G4-29«G84G740.5 
6050 B$=SEG(F$,4*C2(1)-4,4) 

6060 IF B$<>" J" THEN 6080 

6070 B$="DEC" 

6080 PRINT @D1:B$ 

6090 IF 25+23-0.7>128 THEN 6170 

6100 J4=0 

6120 MOVE @D1:Z5+Z3-0.5,G4-G5-G6 

6130 DRAW 601:25-23-0.5,64-29-1,1%81 
6140 MOVE 6D1:25«23-0.5,G4-Z29-L 1*R1-G8 
6150 DRAW @D1:25+23-0.5,4 

6170 IF D5(3)=C2(3) THEN 6330 

6180 IF D1<>32 THEN 6260 

6190 X1225-J5*23/2-3423 

6200 Y7=G4-G5-G6+0.5 

6210 K$=STR(D5(3)) 

6220 K$="19"&K$ 


6230 K$=REP("", 3,1) 

6240 GOSUB 8240 

6250 GO TO 6290 

6260 MOVE 6D1:25-J5*23/2-3423,G4-G5-G640.5 
6270 PRINT €D1:"19";D5(3) 

6280 IF 25+23-0.5>128 THEN 6330 

6290 J5=0 

6310 MOVE @D1:25+Z3-0.5,G4-G5-G6 
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320 DRAW €D1:25423-0.5,G4-G5 

6330 NEXT I1 š 

6350 IF D5(1)<>C2(1) THEN 6510 

6360 IF D1<>32 THEN 6450 

6370 X7=25-(J4#23/2-1.5)+23/2 

6380 Y7=G4-Z9+G8+G7+0.5 

6390 B$=SEG(F$,4*C2(1),4) 

6400 IF B$O" J" THEN 6490 

6410 B$="DEC" 

6420 K$=B$ 

6430 GOSUB 8240 

6440 GO TO 6510 

6450 MOVE 6D1:Z5-(J4%#Z3/2-1.5)+Z3/2,G4-Z9+G8+G7+0.5 

6460 B$=SEG(F$,4*C2(1) ,4) 

6470 IF B$<>" J" THEN 6496 

6480 B$="DEC" 

6490 PRINT @D1:B$ 


6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
661C 
6650 
6660 
6670 
6680 
6690 
6700 
6730 
6740 


IF D5(3)*»C2(3) THEN 6650 

IF D1<>,2 THEN 6600 

XT225-05*23/2-3423 

Y7=G4-G5-G6+0.5 

K$=STR(D5(3)) 

К$= КЪР("",1,1) 

K$="19"&K$ 

GOSUB 8240 

G2 TO 6650 

MOVE 6D1:25-J5*23/2423-3,G4-G5-6640.5 

PRINT @D1:"19";D5(3) 

25:84+08-0.5-23 

H3=4 

H4=G4-Z9-L1*R1-G8 

Z25=R4+G8 

H8- (H4-H3)/((H6-H5)/H7) 

H9zH5-H7 

FOR I1=H3 TO H4 STEP H8 
H9=H9+H7 
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‚50 Y$=STR(H9) 
6760 Y$=REP("" 1, 1) 
6770 IF LEN(Y$)=6 THEN 6880 
6780 FOR 1321 ТО 6-LEN(Y$) 
6790 Y$z" "&Y$ 
6800 NEXT I3 
6810 IF D1<>32 THEN 6870 
6820 X7=R4+G8-6.6 
6830 Ү7=11-1.25 
6840 K$=Y$ 
6850 GOSUB 8240 
6860 GO TO 6890 
6870 MOVE 6D1:R44G8-6.6,11-1.25 
6880 PRINT @D1: Y$ 
6890 MOVE @D1:R4,11 
6900 DRAW €D1:G3,11 


6910 NEXT 11 
6930 FOR I1=1 TO 3 


6940 IF H2(11)=0 THEN 7630 

6970 IF Z1<>1 THEN 7020 

6980 M1=-1 

6990 М2=-1 

7000 М3=25 

7010 GO TO 7070 

7020 M1=Z5 

7030 M2=INT(D9(H2(11),Z1-1)) 

7040 M2=H 3+(M2-H5)/(H6-H5)*(H4-H3) 
7050 M3=Z5 

1070 FOR 12:21 TO Ze 

7980 M3=M3+23 

7090 M4=INT(D9(H2(11),12)) 
7100 M4=H 3+(M4-H5)/(H6-H5)*(H4-H3) 
7110 GOSUB 7840 

7120 M1=M3 

7130 M2=M4 

7140 NEXT 12 


000-6405-02 TEKTRONIX 4051 PROGRAM 


PAGE NO: 69 
TITLE ABSTRACT NO. 


Gantt Chart 51/07-0102/0 


160 M9zG4-L1*R1-G8-5-29 
7170 IF 1123 THEN 7490 
7180 IF І1-2 THEN 7340 
7190 M1=0.5 
7200 . Мг-М941 
7210 M3=5.5 
7220 M4=M9+1 
7230 N6=1 
1240 GOSUB 7840 
7250 ТЕ D1z32 THEN 7290 
7260 MOVE @D1:6,M9 
7270 PRINT 6D1:0$ 
7280 GO TO 7630 
7290 X7=6 


7300 Y7=M9 
7310 K$=0$ 


7320 GOSUB 8240 
7330 GO TO 7630 
7340 M1=0.5 


7350 М2=М9-3+1 
7360 > M3=5.5 
7370 М4=М9-3+1 


7380 N6=1 

7390 GOSUB 7840 

7400 IF D1=32 THEN 7440 
7410 . MOVE 6D1:6,M9-3 
7420 PRINT @D1:P$ 


7430 GO TO 7630 
7440 X7=6 

7450 Y7=M9-3 
7460 K$=P$ 
7470. GOSUB 8240 
7480 GO TO 7630 
7490 M1=0.5 
7500 M2=M9-6+1 
7510 M3=5.5 
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7530 
7540 
7550 
7560 
7570 
7589 
7590 
7600 
7610 
7620 
7630 
7640 
7645 
7646 
7647 
7650 
7670 
7680 
7690 
7700 
7710 
7720 
7730 
7740 
7750 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7840 
7850 
7860 


М4=М9-6+1 

N6=1 

GOSUB 7840 

IF D1=32 THEN 7590 

MOVE 6D1:6,M9-6 

PRINT 6D1:Q$ 

GO TO 7630 

X7=6 

Y7=M9-6 

K$=Q$ 

GOSUB 8240 

NEXT [1 

PRINT "GGGGG" 

INPUT Z$ 

FIND 1 

OLD 

RETURN 

KezLEN(X$) 

FOR K1=LEN(X$) TO 1 STEP -1 
Z$=SEG(X$,K1, 1) 
IF 28542" " THEN 7730 
K2=K2-1 
GO TO 7740 
K1=1 

NEXT K1 

IF K2=LEN(X$) THEN 7820 

Z$=" " 

FOR Ki=1 TO (LEN(X$)-K2)/2-1 
Z$=-Z$&" " 

NEXT K1 

X$=REP(Z$,K2+1, (LEN(X$)-K2)/2) 

X$=REP(Z$, 1,0) 

RETURN 

IF M1<O OR М2<0 OR М3<0 OR M4<0 THEN 8220 

IF M2>H4 OR M4>H4 THEN 8220 

IF M2<H3 OR M4<H3 THEN 8220 
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„70 MesINT (Me) 

7880 M4=INT(M4) 

7890 IF N6=1 THEN 7910 

7900 IF D9(H2(11),12)<0 OR р9(Н2(11),12-1)<0 THEN 8220 
7910 MOVE €D1:M1,M2 

7920 IF I1=1 THEN 8200 

1930 S1zM3-M1 

7940 52-М«-Мг 

7950 53-50ЕВ(5112-5272) 

7960 L=1 

7970 IF ABS(S2)<L AND ABS(S1)<L THEN 8210 

7980 U1=L%(S1/S3) 

7990 UezL*(S2/83) 

8000 03-2%)1 

8010 Uaze*Uüe 

8020 GO TO I1 OF 8040,8090,8150 

8030 GO TO 8200 

8040 FOR I4=0 TO M3-Mi-U1*2 MAX M4-Me-U2*2 STEP 2*(U1 МАХ 02) 
8050 RDRAW 6D1:U1,U2 

8060 RMOVE 6D1:U1,U2 

8070 NEXT I4 

8080 GO TO 8200 

8090 FOR 14:0 ТО M3-M1-U1 MAX М4-М2-02 STEP U1 МАХ U2 
8100 RDRAW 6D1:0,0 

8110 RMOVE 6D1:U1,Uz2 

8120 NEXT I4 

8130 MOVE 6D1:M3,M4 

8140 GO TO 8210 

8150 FOR 14=0 TO M3-Mi-U1*3 MAX М4-М2-02#3 STEP 3*(U1 MAX U2) 
8160 RDRAW @D1:U3,U4 

8170 RMOVE €D1:U1,U2 

8180 NEXT I4 

8190 DRAW @D1:M3,M4 

8200 DRAW @D1:M3,M4 

8210 N6=0 

8220 RETURN 
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8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 
8510 
8520 
8530 
8540 
8550 
8560 


8570 


8580 
8590 
8600 
8610 
8620 


FOR 121 TO LEN(K$) 
J$=SEG(K$,1,1) 
JzPOS(". B3AEFJCLGDHOOQTZ7S52XYMV968P RN]11[KUW4" ,J$, 1) 
IF J>0 THEN 8290 
Ј=1 
IF S(J+241)=0 THEN 8340 
MOVE X7+S(S(J+241))*X6#0. 1333, 77+5 (5 (Ј+241)+1)# Y6*0.087 
FOR J1=S(J+241)+2 TO S(J+281) STEP г 
PRINT 632,20:5(Ј1)%Х6%0. 1333+Х7,5(Ј1+1)#у6#0.087+77 
NEXT J1 
X7=X7+X6 
NEXT I 
RETURN 
IF C5=0 THEN 8500 
C6=SGN (C5) 
1122 
GO TO T1 ОҒ 8440,8440, 8630, 8630, 8650 
C2(2)zC2(2)«C1(T1)*C5 
С0(2)=28 
IF 0.25*C2(3) O INT(0.25*C2(3)) THEN 8480 
С0(2)=29 
IF C2(2)<1 OR C2(2)>C0(C2(1)) THEN 8510 
С0(2)-28 
RETURN 
IF C6+1 THEN 8600 
C2(1)=C2(1)+C6 
IF C2(1)=>1 AND C2(1)<=12 THEN 8580 
C2(3)=C2(3)+C6 
С2(1)-С2(1)-12%С6 
IF Т1>2 ТНЕМ 8530 
GO ТО 8590 
IF Т1>2 THEN 8670 
IF C6+1 ТНЕМ 8450 
С2(22-С2(2)-С6%С0(С2(1)) 
IF C6+1 THEN 8520 
GO TO 8450 
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Сг(1)-С2(1)-С1(71)%С5 


GO TO 8530 
C2(3)=C2(3)+C5 
GO TO 8490 
С2(2)=С2(2) MIN CO(C2(1)) 
GO TO 8490 
Сч-0.25%С2(3)-ІКТ(0.25%С2(3)) AND C2(1)>2 
IF C2(1)=1 THEN 8770 
FOR B3=1 TO C2(1)-1 
C4=C4+C0(B3) 
NEXT B3 
C4=C8+C2(2)+365%C2(3)+INT(0.25%(C2(3)-1)) 
C8=INT(C4/7)+1 
СТ=С4- (С8-1)#7+1 
RETURN 
GO TO T1 OF 8860,8860,8970,8970,9000 
Ce=C3 
GOSUB 3970 
C5=C4 
С6-С8 
Сг-Вг 
GOSUB 3970 
IF Т1=е THEN 8950 
C8=C5-C4 
RETURN 
С8-С6-С8 
КЕТУЕМ 
C8=INT((C3(1)+2)/C1(T1))-INT((B2(1)+2)/C1(T1)) 
C8=12/C1(T1)#(C3(3)-B2(3))+C8 
RETURN 
C8=C3(3)-B2(3) 
RETURN 
H1=0 
C7=POS(R$,"/",1) 
C8=POS(R$,"/",C7+1) 
С2(2)=1 
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9090 B$=SEG(R$, (C8 MAX C7)+1,LEN(R$)-(C8 MAX C7)) 
9100 B$=B$&V$ 

9110 C2(3)=VAL(B$) 

9120 IF C2(3)<>N3 AND C2(3)=>1 AND C2(3)=INT(C2(3)) THEN 9150 
9130 E1=118 

9140 GO TO 9500 

9150 IF C7<>0 THEN 9190 

9160 IF T1<>5 THEN 9130 

9170 Ce(1)=1 

9180 RETURN 

9190 В%-5ЕС(В%,1,С7-1) 

9200 IF B$<>"END" THEN 9250 

9210 IF T1<>5 AND C8<>0 THEN 9130 

9220 C2(1)=12 

9230 C2(2)=31 

9240 RETURN 

9250 B$=B$&V$ 

9260 C2(1)=VAL(B$) 

9270 IF C2(1)=N3 OR C2(1)>12 OR C2(1)<>INT(C2(1)) OR C2(1)<1 THEN 9130 
9280 IF C8<>0 THEN 9340 

9290 IF T1<3 OR T1=5 THEN 9130 

9300 C2(1)=C1(T1)*(C2(1)-1)+1 

9310 С2(1)+С2(1)+С9(1)-С1(Т1) *INT(C9(1)/C1(T1)-0.2)-1 
9320 IF C2(1)>12 THEN 9130 

9330 RETURN 

9340 С0(2)-28 | 

9350 IF 0.25%#C2(3)<>INT(0.25#C2(3)) THEN 9370 

9360 С0(2)=29 

9370 B$=SEG(R$,C7+1,C8-C7-1) 

9380 IF B$<>"END" THEN 9440 

9390 IF T1<3 OR T1>4 THEN 9130 

9400 C2(1)=C1(T1)#C2(1) 

9410 IF C2(1)>12 THEN 9130 

9420 C2(2)zCO(C2(1)) 

9430 RETURN 

9440 B$=B$&V$ 
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9450 
9460 
9470 
9480 
9490 
9500 
9510 
9520 
9530 
9540 
9550 
9560 
9570 
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C e(e)zVAL(CB$) 
IF C2(2)zN3 OR C2(2)<>INT(C2(2)) OR C2(2)<1 THEN 9130 
IF Ce(2)»CO(C2(1)) THEN 9130 
С0(2)=28 
RETURN 
PRINT "Invalid Date!GG" 
RETURN · 
FOR R1=1 TO 42 
FOR К2=1 TO LI 
PRINT "ROW ";R2;"COLUMN ";R1;"; м; 
INPUT D9(Re,R1) 
NEXT R2 
NEXT R1 
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DISK VERSION -- GANTT1/AUTOLOAD 
1 GO TO 100 


З REM #XXXMXXXXXXX INPUT OF CHART CHARACTERISTICS ##### TAPE VERSION 


à FIND F1*3-1 

5 GOSUB 370 . 

6 RETURN 

Т REM яникиниикижинининиикиих INPUT OF WEEKLY DATA ##### TAPE VERSION 


8 FIND F1*3 

9 GOSUB 379 

10 RETURN 

11 REM ##XXXXX##%XX##XX##X##%XX# GENERATE. GANTT CHART ##### TAPE VERSION 
12 FIND F1%*3+1 

13 GO TO 90 

14 RETURN 

23 REM #X%%XXX###X# INPUT OF CHART CHARACTERISTICS ##### DISK VERSION 
24 P$="@GANTT1/PROGRAM/ INPUT/CHART" 

25 GOSUB 500 

26 RETURN 

27 REM #%XXXXXXXXXXXXXXXX6§XX# INPUT OF WEEKLY DATA ##### DISK VERSION 


28 P$="@GANTT1/P ROGRAM/ INPUT/DATA" 

29 GOSUB 500 

30 RETURN 

31 REM C HOUUOUOEEUEUUUUHEBHE GENERATE GANTT CHART НЕЮ DISK VERSION 


32 P$="@GANTT1/P ROGRAM/OUTPUT/NODOC" 
33 GO TO 80 
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34 RETURN 

о DELETE 101,65000 

81 DELETE 1,80 

82 DELETE 90,99 

83 M9zMEMORY 

84 APPEND P$; 100 

85 GO TO 100 

90 DELETE 101,65000 

91 DELETE 1,90 

92 М9-МЕМОКҮ 

93 CALL "BAPPEND", 100 

100 INIT 

110 PRINT "LX GANTT CHARTS *Jg" 

120 CALL "TIME",X$ 

130 IF X$<>"" THEN 300 

140 PRINT "Indicate Date & Time: " 
150 PRINT " ех: O1-JAN-79 14:37: OOHHHHHHHHHHHHHHHHHHK "; 
160 INPUT X$ 

170 CALL "SETTIM",X$ 


300 PRINT "JJJ UDK TASK" 

310 PRINT" | --- ---- Е 

315 PRINT "J *TAPE VERSION*J" 

320 PRINT " 1 DESCRIBE CHART" 

330 PRINT " e INPUT WEEKLY DATA" 
339 PRINT " 3 GENERATE CHART" 

340 PRINT "J *DISK VERSION*J" 

342 PRINT " 6 DESCRIBE CHART" 

344 PRINT " T INPUT WEEKLY DATA" 
346 PRINT " 8 GENERATE CHART" 

350 PRINT "JJ The 'Generate Chart' Task will not return " 
351 PRINT " to the Menu "; 

353. PRINT "(Memory Considerations)!" 

355 PRINT "J Press a Function Key!GG" 
360 RETURN 


370 SET NOKEY 
380 CALL "BAPPEND",600 
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396 
400 
410 
420 
430 
440 
450 
460 
500 
501 
510 
520 
530 
540 
550 
560 
570 
600 


GOSUB 600 

SET KEY 

DELETE 601,65000 
FOR 11-1 TO 700 
NEXT I1 

PRINT "L" 

GOSUB 300 

RETURN 

SET NOKEY 
APPEND P$;600 
GOSUB 600 

SET KEY 

DELETE 601,65000 
FOR 11=1 TO 700 
NEXT I1 

GOSUB 300 

RETURN 

INIT 
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DISK VERSION -- GANTT1/PROGRAM/INPUT/CHAPT 


100 
110 
120 
130 


140 
150 
160 


170 
180 
190 
200 
210 


220 


230 
240 
250 
260 
270 
280 


290 
300 


310 
320 


330 


340 


350 


TINI 

PRINT "LThis Task allows characteristics of a GANTT Chart" 
PRINT "to be described.JJ" | 

DIM A$(923),A1(61),A2(16),A3(16),2$(200) 


REM заказана Ri _ LENGTH OF DESCRIPTION AREA 
R4=31.5 
REM ****XXEEXKK AS — CHART CHARACTERISTICS, INITIALIZE TO 923 BLANKS 


А$=" " 
FOR 1121 TO 17 

A$-A$&" " 
NEXT I1 
А$=А$&" " 


REM ****** A1 - POSITIONS IN A$ WHICH START THE CHARACTERISTICS DESC 


DATA 1,16,31,76,92,98, 128, 158, 166, 168, 170, 172, 173, 203, 233,235, 237 
DATA 238,268,298, 300, 302, 303, 333, 363, 365, 367, 368, 398,428,429, 459 
DATA 460,490,ц91,521,522,552,553,583, 584, 614, 615, 645, 646,676,677 
DATA 707, 1708, 738, 739, 169, 710, 900, 801,831,832, 862, 863, 893, 894 
RESTORE 230 

READ A1 


REM ***** Д2 & АЗ =- ROWS HAVING SINGLE AND DOUBLE VERT DESC'S, INIT 
FOR I1=1 TO 16 
A2(I1)20 
A3(11)=0 
NEXT 11 
REM ЖЕКЕ ын ыы PROMPT FOR CHARACTERISTICS AND STORE IN A$ 


PRINT " PROJECT NAME: " 
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PRINT 

PRINT 

INPUT X$ 

PRINT 

INPUT Y$ 

IF LEN(X$)<>0 THEN 450 

PRINT " type Project Name on Line 1 and optionally"; 
PRINT " on Line 2!GG" 

GO TO 350 

IF LEN(X$)<=15 AND LEN(Y$)<=15 THEN 480 

PRINT " 15 characters maximum for each Line!GG" 
GO TO 350 

A$=REP(X$,A1(1),LEN(X$)) 

IF LEN(Y$)=0 THEN 510 

A$=REP(Y$,A1(2),LEN(Y$)) 

PRINT " CHART TITLE: 

PRINT " ü 

PRINT " K"; 

INPUT X$ 

IF LEN(X$)<=45 AND LEN(X$)<>0 THEN 580 

PRINT " 45 characters maximum!GG" 
GO TO 510 

A$=REP(X$,A1(3),LEN(X$)) 

PRINT " CODE: НННННННННННННННН"; 
INPUT X$ 

IF LEN(X$)<=16 THEN 640 

PRINT " 16 characters maximum!GG" 
GO TO 590 

A$=REP(X$,A1(4),LEN(X$)) 

PRINT "PROJECT NUMBER: HHHHHH"; 

INPUT X$ 

IF LEN(X$)<=6 AND LEN(X$)<>0 THEN 700 

PRINT " 6 characters maximum!GG" 
GO TO 650 

A$=REP(X$,A1(5),LEN(X$)) 

PRINT " SIGNATURE: 
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720 PRINT 

730 PRINT 

THO INPUT X$ 

750 PRINT 

760 INPUT Y$ 

770 IF LEN(X$)<>0 THEN 810 

780 PRINT " type Signature on Line 1 and орііспа11у "; 
790 PRINT "on Line 2166" 

800 GO ТО 710 

810 IF LEN(X$)<=30 AND LEN(Y$)<=30 THEN 840 

820 PRINT " 30 characters maximum for each Line!GG" 
830 GO TO 710 

840 A$=REP(X$,A1(6),LEN(X$)) 

850 IF LEN(Y$)=0 THEN 870 

860 A$=REP(Y$,A1(7),LEN(Y$)) 

870 FOR I1=1 TO 300 


880 NEXT I1 
890 14-5 


900 L1=0 

910 PRINT "LVERTICAL DESCRIPTIONS (4 MAX) J" 

920 Lü=L4+5 

930 L1=L1+1 

940 IF L1>4 THEN 1720 

950 PRINT "J" 

960 PRINT " SINGLE or DOUBLE: _ (type '0' when done)" 

970 PRINT " K"; 

980 INPUT W$ | 

990 IF W$z"O" OR W$="S" OR W$="D" THEN 1020 

1000 PRINT " type '0','S', or 'D'!cc" 

1010 GO TO 960 

1020 IF W$="0" THEN 1720 

1030 PRINT " BEG ROW: _ HH"; 

1040 INPUT X$ 

1050 IF LEN(X$)=1 OR LEN(X$)=2 THEN 1080 i 
1060 PRINT " type 1 or 2 numbers please!GG" 
1070 GO TO 1030 
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1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 


1280 


1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 


1390 
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GOSUB 2720 


ЈЕ Ј120 THEN 1120: 

PRINT " type numbers only!GG" 

GO TO 1039 

J1=VAL(X$) 

IF J1=>1 AND J1<=16 THEN 1170 

PRINT " Vertical Description can span "; 

PRINT "Rows 1 thru 16 only!GG" 

GO TO 1030 

Y$=X$ 

PRINT " END ROW: _ HH"; 

INPUT X$ 

IF LEN(X$)=1 OR LEN(X$)=2 THEN 1230 

PRINT " 1 or 2 numbers only!GG" 

GO TO 1180 

JZ=VAL(X$) 

IF Јг>Ј1 AND J2<=16 THEN 1290 

PRINT " Ending Row must be greater than Beg Row" 
PRINT " and less then Row 16!GG" 

GO TO 1030 d 

REM ЖЕККЕН ЕЗЕК CHECK IF ROWS ARE ALREADY SPANNED 


43-0 
FOR 11-071 TO Je 
IF А2(11)<>0 THEN 1330 
IF A3(11)=0 THEN 1350 
J3=1 
11=Ј2 
NEXT I1 
IF J3=0 THEN 1400 
PRINT " a Vert Desc already spans this Row!GG" 
GO TO 960 | 


REM *######® STORE SPANNED ROWS IN SINGLE & DOUBLE ARRAYS,. А2 4 АЗ 
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‚#06 FOR 11:01 TO Je 


1410. IF W$z"D" THEN 1440 
1420 A2(11)=1 

1430 GO TO 1450 

1440 A3(11)=1 


1450 NEXT 11. 
1460 A$=REP(Y$,A1(L4) ,LEN(Y$)) 
1470 A$=REP(X$,A1(L4+1) ,LEN(X$)) 
1480 A$=REP(W$,A1(L4+2) ,1) 


1490 REM #XXXXXXXXX [3 _ NO OF SPACES AVAILABLE FOR VERTICAL DESCRIPTION 


1500 L3=(J2-J1+1)*2+(J2-31) 
1510 IF W$="D" THEN 1540 


1520 PRINT " DESCRIPTION: "; 
1530 GO TO 1550 
1540 PRINT " DESCRIPTION #1: "; 


1550 GOSUB 2810 

1560 GOSUB 2860 

1570 INPUT X$ 

1580 IF LEN(X$)<=L3 AND LEN(X$)<>0 THEN 1610 

1590 PRINT " ";L3;" characters maximum!GG" 
1600 GO TO 1540 

1610 A$=REP(X$,A1(L4+3) ,LEN(X$)) 

1620 IF W$z"S" THEN 920 

1630 PRINT " DESCRIPTION #2: "; 

1640 GOSUB 2810 | 

1650 GOSUB 2860 

1660 INPUT X$ 

1670 IF LEN(X$)<=L3 AND LEN(X$)<>0 THEN 1700 

1680 PRINT " ";L3;" characters only!GG" 
1690 GO TO 1630 
1700 A$=REP(X$,A1(L4+4) ,LEN(X$)) 

1710 GO TO 920 

1720 FOR I1=1 TO 300 

1730 NEXT 11 
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1740 Ly=28 
1750 L1z0 | 

1760 PRINT "LHORIZONTAL DESCRIPTIONSJ" 

1770 L4=L4+2 

1780 L1=L1+1 

1790 IF L1>16 THEN 2042 

1800 PRINT "J DESCRIPTION: " 

1810 PRINT " type '0' when complete" 
1820 IF А2(1.1)=0 THEN 1850 

1830 L3zRü-4 

1840 GO TO 1890 

1850 IF A3(L1)=0 THEN 1880 

1860 L3=R4-6 

1870 GO TO 1890 

1880 L3=R4-1 

1890 PRINT " KK"; 

1900 GOSUB 2810 

1910 GOSUB 2860 

1920 INPUT X$ 

1930 IF X$="0" THEN 2069 

1940 IF LEN(X$)<=L3 AND LEN(X$)<>0 THEN 1970 


1950 PRINT "J ";INT(L3);" characters maximum!GG" 
1960 GO TO 1800 
1970 PRINT "J LINE? _H"; 


1980 INPUT Y$ 

1990 IF Y$="Y" OR Y$="N" THEN 2020 

2000 PRINT " type а "У" or a 'N'!GG" 
2010 GO TO 1970 

2020 A$=REP(Y$,A1(L4),1) 

2030 А$=ВЕР(Х$, А1 (1.4+1) ,LEN(X$) ) 

2040 GO TO 1770 


2041 REM MEERE CHECK THAT $ OF ROWS IS OKAY 


2042 IF L1=>16 THEN 2056 
2043 J1=0 
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2044 
2045 
2046 
2047 
2048 
2949 
2050 
2051 
2052 
2053 


2055 


2056 
2057 
2058 
2059 
2061 
2062 
2063 


2068 


2069 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 


FOR 11-11 TO 16 


IF А2(11)<>0 THEN 2047 
IF A3(11)=0 THEN 2049 
Ј121 
. I1=16 
NEXT 11. 
ЈЕ Ј1=0 THEN 2056 
PRINT "JVertical Descriptions can not exceed Horizontal "; 
PRINT "Descriptions. Start over!GG" 
GO TO 170 


REM ##XX#%X%X%M#%X%#%X#XX# XXX  X X # X  X X # STORE NO OF ROWS (L1) 


L1=L1-1 

X$=STR(L1) 

X$=REP("" 1,1) 
A$=REP(X$,A1(9),LEN(X$) ) 
L1=L1+1 

FOR I1=1 TO 500 

NEXT I1 


REM іканне PREPARE FOR DISK STORAGE 


PRINT "L" 

CALL "UNIT", 

PRINT შაი ს shall be the name of this Chart? 

PRINT "HHHHHHHHHH"; 

INPUT X$ 

IF LEN(X$)<=10 AND LEN(X$)<>0 THEN 2150 

PRINT "Chart name can be a maximum of 10 characters!GG" 
GO TO 2080 

INPUT X$ 

2$=SEG(X$,1,1) 

IF Z$=>"A" AND Z$<="Z" THEN 2190 

PRINT "Chart name must begin with an Alphabetic character !GG" 
GO TO 2080 
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2190 FOR 11-2 TO LEN(X$) 


2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 


2350 


2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 


2451 


2452 
2453 
2454 
2455 


Z$=SEG(X$, 11,1) 
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IF Z$=>"A" AND Z$<="Z" OR (Z$=>"0" AND Z$«z'9") THEN 2240 


PRINT "No Blanks or Special Characters allowed for Chart name!GG" 


GO TO 2080 
P$=X$ 


PRINT "JInsert in Unit #0 the Disk to contain Chart "X$ 


PRINT "To continue, type <CR>. "; 


INPUT Y$ 

CALL "MOUNT",0,Z$ 
Z$=SEG(Z$,73,10) 
I1=VAL(Z$) 

IF І1>5000 THEN 2360 


PRINT "JThere is not enough room on this Disk to store Chart Mo X$ 


, 


PRINT "Insert another Disk to store this Chart." 


GO TO 2260 


REM KXXEXEREEXXXEXXEXEKXEXEXEEXEKEKK STORE CHART CHARACTERISTICS, A$ 


Z$="@GANTT1/"&X$ 
X$=Z$&"/CHART" 
Y$=Z$&"/DATA" 

CALL "FILE" ,0,Х$, 2$ 
IF Z$="" THEN 2470 


PRINT "J";P$;" already exists as a Chart name. 


PRINT "over-written? .H"; 
INPUT Z$ 

IF Z$z"N" THEN 2080 

IF Z$<>"Y" THEN 2410 


REM **********4* CHECK THAT ў OF ROWS IN OLD AND NEW CHART MATCH 


OPEN X$; 1,"F",2$ 
READ #1:Z$ 
2%-5ЕС(2%,А1(9),2) 
L2=VAL(Z$) 
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CLOSE 1 
IF L1-1=L2 THEN 2460 
PRINT "JTo properly access the associated Data File, this Chart "; 
PRINT "must have ";L2;" Rows. Start over!GGJJJ" 
FOR I1=1 TO 500 
.FOR I1=1 TO 500 
GO TO 170 
GO TO 2480 
CREATE X$;1000,0 
OPEN X$;1,"F",Z$ 
Q$=STR(L1) 
IF LEN(Q$)=2 THEN 2494 
Q$=REP("",1,1) 
A$-REP(Q$,A1(9),2) 
WRITE #1:A$ 
CLOSE 1 


REM #%#X#XX# [F DATA FILE ALREADY EXISTS THEN THIS TASK HAS BEEN 
REM X**X***** USED FOR MODIFICATION 


CALL "FILE" ,0, Y$,Z$ 

IF 2%="" THEN 2620 

PRINT "JA Data File already exists for Chart ";P$;". Should it" 
PRINT "be initialized? Н"; 

INPUT Z$ 

IF Z$="N" THEN 2690 

IF Z$<>"Y" THEN 2550 

GO TO 2630 


REM *XYXXERRREERKREREEERKEEERXEREKEEXKEREEKERR SET UP DUMBY DATA FILE 


CREATE Y$;1000,0 
OPEN Y$;1,"F",Z2$ 
DELETE D9 

DIM D9(L1-1,42) 


D9z-1 
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-670 WRITE #1:"01/01/50",L1-1,D9 

2680. CLOSE 1 

2690 PRINT "JJJJ";P$;" Chart format stored!GG" 

2700 RETURN 

2710 f REM *3*XEXXEXEXEKKEXK SUBROUTINE - ALL MEMBERS OF X$ MUST BH NUMERI 
2720 J1=0 

2730 FOR K1=1 TO LEN(X$) 

2740 Z$=SEG(X$,K1, 1) 

2750 IF Z$=>"0" AND Z$<="9" THEN 2780 

2760 J1=1 

2770 K1=LEN(X$) 

2780 NEXT K1 

2790 RETURN 

2800 REM У XXX ERR EHH а SUBROUTINE - PRINT L3 UNDERLINE CHARACTER: 
2810 FOR K1=1 TO L3 

2820 PRINT " м; 

2830 NEXT K1 

2840 RETURN 

2850 REM #%XX#X#XX#%XXX#MM#### SUBROUTINE - PRINT L3 BACKSPACE CHARACTER: 
2860 FOR K1=1 TO L3 

2870 PRINT "H"; 

2880 NEXT K1 

2890 RETURN 
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100 
110 
120 
130 
140 


156 


160 
170 
180 
190 
200 
210 
220 
230 


INIT 

PRINT "LThis Task allows Data Editing." 

DIM H5(1,28),C1(4) ,Ce(3) ,C3(3),C9(3) ,F$(51),G$(54) , R$(24) 
DIM W$(48),B2(3) ,B9(3) ,C$(9) ,CO(12) ,De(3) ,V$(15) ,M$ C1) 
M$=CHR(13) 


REM Жак INITIALIZATION OF CALENDAR FUNCTION VARIABLES 


DATA 31, 28,31, 30, 31, 30, 31,31, 30, 31, 30,31,1,7,1,3 

RESTORE 160 

READ CO,C1 

F$=" JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC " 
N3=-2.713E+288 

V$=STR(N3) 

W$=" SUN MON TUESWEDNES THURS FRI SATUR" 

G$=" DAYS WEEKD MONTHS QUARTERS YEARS" 


REM ***3***** READ FROM DISK: R$ - DATE, L1 - # OF ROWS, D9 - DATA 


PRINT "JJWhich Chart? HHBHHHHHHH"; 

INPUT X$ 

IF LEN(X$)<=10 AND LEN(X$)<>0 THEN 300 

PRINT "Cnart name must be less than 10 characters!GG" 

GO TO 250 

Z$=SEG(X$, 1, 1) 

IF Z$=>"A" AND Z$<="Z" THEN 340 

PRINT "Chart name must begin with an Alphabetic character !GG" 

GO TO 250 

FOR Iize TO LEN(X$) 
Z$=SEG(X$,11,1) 
IF Z$=>"A" AND Z$<="Z" OR (Z$=>"0" AND Z$<="9") THEN 390 
PRINT "No Blanks or Special characters allowed for Chart name!GG" 
GO TO 250 
O$=X$ 
CALL "UNIT" ,O 4. 
PRINT "JInsert in Unit #0 the Disk containing Chart ";X$ 
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PRINT "To continue, type «СК». "; 

INPUT Y$ 

Z$="@GANTT1/"&X$ 

Z$=Z$&"/DATA" 

05:25 

CALL "MOUNT" ‚О, Y$ 

CALL "FILE" ,0,2$,Y$ 

IF Y$<>"" THEN 520 

PRINT "Chart ";X$;" is not stored on this Disk!GG" 
GO TO 410 > 
OPEN Z$;1,"F", Y$ 

READ #1:R$,L1 

DIM D9(L1, 28) 

READ #1:D9 

CLOSE 1 


REM ##MXXXXMXXMM#MXMX#XX#X#XXXX# ру а R$ - DATE FOR FIRST COLUMN OF DATA 


Z$-R$ 

PRINT "JJJBeginning Data Date is ";R$;". Is this correct? ме 
INPUT Y$ 

GOSUB 3380 

P$=R$ 

IF Y$="Y" THEN 770 

IF Y$<>"N" THEN 590 

PRINT "JNew Date: HHHHHHHH" ; 

INPUT R$ 

GOSUB 3380 

ЈЕ H1<>0 THEN 650 

GOSUB 3040 

B$=SEG(W$,6*C7+1,6) 

IF B$z" SUN" THEN 740 

PRINT R$;" is a ";B$;". Indicate a Sunday!GG" 
GO TO 650 

P$-R$ 

GOSUB 2390 


TEKTRONIX 4051 PROGRAM 


t i PAGE NO: 91 
TITLE ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


REM RERI IE IEE E IEE E E E E E E E JE E IE JE AE IE I E JE AE AE JE IE AE AE A AE A AE FE AE A DATA EDITING 


PRINT "LDuring Data modification, type:J" 

PRINT " <CR> if present value is correct;" 

PRINT" -1 if value is not to print; or " 

PRINT " O if it is to be calculated." 

PRINT "JJJTyping a '0' for any of the following Questions will "; 
PRINT "cause an exit from the indicated Process." 
R$=P$ | 
PRINT "JJDo you want to go thru each МееК(1), only selected ats 
PRINT "Weeks(2), or Neither(0)? _H"; 

INPUT Y$ 

IF Y$="0" THEN 1820 

IF Y$z"1" THEN 1130 

IF Y$<>"2" THEN 840 

R$=P$ 
GOSUB 3380 

Вг-С2 

С3-С2 
GOSUB 3380 
GOSUB 3040 

21-С8 

PRINT "JWhich Date: HHHHHHHH"; 

INPUT R$ 

IF R$="0" THEN 770 

GOSUB 3380 

IF H1<>0 THEN 970 

BezC2 

C3=C2 

GOSUB 3040 

21-С8-21 

IF 21-50 AND Z1<=27 THEN 1090 

PRINT R$;" is out of the 28-Week range!GG" 

GO TO 900 

11=21+1 
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GOSUB 1299 
GO TO 900 


REM ##%%%X#%#%#%X#X XX XXX XX  X X X ЗЕ ЗЕ X X X X X XX X X#% #%#%#% | OOP THRU EACH COLUM 


C5=0 

R$=P$ 

GOSUB 3380 

FOR I1=1 TO 28 


REM кк кк кк кк ака ЗЕ ЕЕЕ ЗӨ FIND DATE FOR THIS COLUMN 


GOSUB 2720 
PRINT M$;"JJ" 

PRINT "Should Data for ";C2(1);"/";C2(2);"/";C2(3);" be Modifiba?"; 
PRINT " H'; 

INPUT Y$ 

IF Y$="0" THEN 1760 

IF Y$z"N" THEN 1740 

IF Y$<>"Y" THEN 1200 

GOSUB 1290 

GO TO 1740 


REM #XMXX#XXX#X%XI#+X AE AE AE AE  X X  X  X X анне [OOP THRU EACH ROW 


FOR I2=1 TO L1 
Y$=STR(D9(12,11)) 
У$=ВЕР("",1,1) 
J1=POS(Y$,".", 1) 

IF J1=0 THEN 1390 
Y$=REP("/" ,J1, 1) 
Y$-REP("",LEN(Y$)-1,2) 


IMAGE 6A,2D,2A,6A,15A 
IF Y$<>"1/0E" THEN 1390 


Y$="0/00" ; 
PRINT USING 1360:" Row ";12;": ";Y$;" HHHHHH" 
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1422 PRINT " K"; 

1412 INPUT X$ 

1415 IF X$="-1" THEN 1700 

1420 IF LEN(X$)<=6 ТНЕМ 1450 

1430 . PRINT " 6 Characters maximum!GG" 
1440 | GO TO 1390 

1450 IF LEN(X$)zO THEN 1720 

1460 REM *** SUBROUTINE - ALL CHARACTERS OF X$ MUST BE NUMERIC DR A "/ 
1470 Ј1=0 

1489 FOR K1=1 TO LEN(X$) 

1490 2%-5ЕС(Х%,К1,1) 

1502 IF Z$=>"0" AND Z$<="9" OR Z$="/" THEN 1530 
1510 J1=1 

1520 K1=LEN(X$) 

1539 NEXT K1 

1540 IF Ј1=0 THEN 1580 

1550 PRINT " Type only numbers and, optionallp, "; 
1560 PRINT "а '/'!GG" 

1570 GO TO 1390 

1580 J1=POS(X$,"/",1) 

1590 ЈЕ J1=0 THEN 1700 

1600 IF J1+3>LEN(X$) THEN 1650 

1610 Z$zSEG(X$,J143,1) 

1620 IF Z$z" " THEN 1650 

1630 PRINT "Only two numbers allowed after the '/'!GG" 
1640 GO TO 1390 

1650 X$=REP(".",J1,1) 

1660 U1=VAL(X$) 

1670 U2=1.0E-4 

1680 91=01+92 

1690 GO TO 1710 

1700 U1=VAL(X$) 

1710 09(12,11)-01 

1720 NEXT 12 
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RETURN 
C5=1 
GO TO 1770 
11=42 
NEXT I1 
GO TO 770 


REM XXXXXXXXX*XXxXxxxxXxxxxxxxkxkxxXxxxxxuxxxukxxux TOTAL CALCULATION 


REM XXX L2 - NO OF ROWS TO BE ADDED TOGETHER * L3 - 4 OF TOTAL RO 
REM * H2 - ARRAY OF ROW #s TO BE ADDED * H5 - ARRAY OF SUMMED DATA 


PRINT "LTotal Calculations" 
PRINT "JJHow many Rows? __ (type '0' when complete)" 
PRINT " K"; 
INPUT Le 
IF L2<=0 THEN 2260 
IF L2=>1 AND L2<=L1 THEN 1900 
PRINT "Only ";L1;" Rows exist!GG" 
GO TO 1830 
DELETE He 
DIM H2(L2) 
PRINT "JIndicate Rows: 
PRINT " K"; 
INPUT H2 
PRINT "JIndicate Total Row #: HH"; 
INPUT L3 
IF L3=>1 AND L3<=L1 THEN 1990 
GO TO 1880 
Ј1=0 
FOR 11-1 TO L2 
ЈЕ H2(11)=>1 AND H2(11)<=L1 THEN 2060 | 
PRINT "Row #";Н2(11);" is outside Row Range. Row #'s must "; 
PRINT "fall between 1 and "5L1;"!GG" 
41-1 
GO TO 2100 
IF H2(11)<>L3 THEN 2100 
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PRINT "Row #";Н2(11);" to be Added is the same as the Total КА: 


PRINT "f":L3;". They must be different!GG' 
41-1 

NEXT 11 

IF 41-1 THEN 1830 

Н5-0 


REM ****3X*X***XX** ADD 1 ROW AT А TIME ACROSS ALL 28 DATA COLUMNS 


FOR I1z1 IO L2 
FOR І2-1 TO 28 
IF D9(H2(11),12)<0 THEN 2190 
H5(1,12)=H5(1, 12)+D9(H2(11),12) 
GO TO 2200 
H5(1,12)=-1 
NEXT 12 
NEXT [1 
FOR I1=1 TO 28 
D9(L3,11)=H5(1,11) 
NEXT 11 
GO TO 1820 
GOSUB 2390 
PRINT "LWould you like to go thru the Editing process again? _H"; 
INPUT Y$ 
IF Y$="Y" THEN 580 
IF Y$<>"N" THEN 2270 
OPEN Q$; 1,"F",2$ 
WRITE #1:P$,L1,D9 
. CLOSE 1 
PRINT "JJBeginning Date, Number of Rows, and the Weekly Data "; 
PRINT "has beer Stored in the Data File for Chart "; 
PRINT 0$;"!GG" 
RETURN 


REM 9E 3E 3E 3E E AE JE 3E 3E III X X X #  X X  X # # X X AE # # SUBROUTINE ~ LIST DATA 
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PRINT "LWould you like a Print-cut of the existing Data? Hs 
INPUT Y$ 

IF Y$="N" THEN 2660 

IF Y$<>"Y" THEN 2390 

R$zP$ 


REM закана ана ЗЕ ЗЕ ЗЕ ЗЕ каа LOOP THRU EACH COLUMN 


С5-0 
FOR 1121 TO 28 


REM HERR RHEE EERE KKH HEHE аа FIND DATE FOR THIS СО 


GOSUB 3380 
GOSUB 2720 
PRINT M$;"JJCOLUMN: ";I1;" (";C2(1);"/";C2(2);"/";C2(3);")" 


REM #X##%#X#%#%#X#XM%##+X XX  X  X # X # X # X ЗЕ X LOOP THRU EACH 


FOR І2-1 TO L1 
Y$zSTR(D9(I2,11)) 
IF Y$<>" 1.0E-4" THEN 2570 
Y$="0/0" 
GO TO 2620 
Y$=REP("", 1,1) 
13=POS(Y$,".",1) 
IF 13=0 THEN 2620 
Y$=REP("/",13,1) 
Y$=REP("" LEN(Y$)-1,2) 
PRINT " R";I2;": f" уз; " ща 
NEXT 12 
C5=C5+1 
NEXT [1 
PRINT M$;"JJJTo continue, type <CR>. "; 
INPUT Y$ 
RETURN 


000-6405-02 TEKTRONIX 4051 PROGRAM 


მმმ-_-_------_-_--___._______--<_-_-3_______-_33<-_-_______-__ А 


E PAGE NO: 97 
TITLE ABSTRACT NO: 


Gantt Chart | 51/07-0102/0 


2690 REM ##XXX#XX##X##XXMMXMXXX SUBROUTINE - DATE + OR - C5 TIME SEGMENTS 
2700 REM князы C2-(mm,dd,yy) C5=# of time segments 
2710 REM ЕЕЕ ЕКЕН Tl=time mesh * C6,C7=scratch 
2720 ТЕ С5:0 THEN 2820 

2730 C6=SGN(C5) 

2740 1122 

2750 GO ТО T1 OF 2760,2760,2950,2950, 2970 

2760 С2(2)=С2(2)+С1(Т1)*#С5 

2770 C0(2)228 

2780 [Е 0.25*C2(3)<>INT(0.25*C2(3)) THEN 2800 

2790 С0(2)=29 

2800 IF C2(2)<1 OR C2(2)>CO(C2(1)) THEN 2830 

2810 С0(2)-28 

2820 RETURN 

2830 IF C6+1 THEN 2920 

2840 C2(1)=C2(1)+C6 

2850 IF C2(1)=>1 AND С2(1)<=12 THEN 2900 

2860 C2(3)=C2(3)+C6 

2870 C2(1)=C02(1)-12*C6 

¿880 IF Т1»г THEN 2850 

2890 GO TO 2910 

2900 IF Т1>2 THEN 2990 

2910 IF C6+1 THEN 2770 

2920 C2(2)=C2(2)-C6%CO(C2(1)) 

2930 IF C6+1 THEN 2840 

2940 GO TO 2770 

2950 C2(1)=C2(1)+C1(T1)*C5 


2960 GO TO 2850 
2970 C2(3)=C2(3)+C5 
2980 GO TO 2810 


2990 C2(2)zC2(2) MIN CO(C2(1)) 
3000 GO TO 2810 
3010 REM *****Y*** 1 1448 SUBROUTINE - DAY ў, WEEK й, € DAY OF THE WEEK 
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REM ###X#X###XXXXXXXXXXXXXX Cüzday # * C8=week ў Я C7=dey cf weer 
REM аван Со (mm, dd, yy) * B3=scratch 


Cáz0.25*C2(3)-INT(0.25*C2(3)) AND С2(1)22 
IF C2(1)=1 THEN 3090 
FOR.B3z1 TO C2(1)-1 

C4=C4+C0(B3) 
NEXT B3 
c4y=C4+C2(2)+365*C2(3)+INT(0.25*(C2(3)-1)) 
C8=INT(C4/7)+1 
C7=C4-(C8-1)*7+1 
RETURN 


REM #XXX#X#X##XX#X#X#X#XXX# SUBROUTINE - TIME SEGMENTS BETWEEN DATES 
REM ##X%X##X%X%X#X# XXX X X XX X X X X X X X X ЗЕ X X X # XX ЕЕ Т1-Сіпе mesh 


REM ###%##X#X#XX##X 156 date=Be=(mm,dd,yy) % c8=# of time segments 


REM **** 2nd date=C3=(mm,dd,yy) Я B2,B3,C0,C2,C4,C5,C6,C7=scratch 


I1z2 

GO TO T1 OF 3190,3190,3300, 3300, 3330 
Сг-С3 

GOSUB 3040 

C5zC4 

C6=C8 

Сг=Ве 

GOSUB 3040 

[Е Т1-2 THEN 3280 

С8-С5-СЧ 

КЕТУЕМ 

С8-С6-С8 

RETURN 
C8=INT((C3(1)+2)/C1(T1))-INT((B2(1)+2)/C1(T1)) 
C8=12/C1(T1)#(C3(3)-B2(3))+C8 

RETURN 

C8=C3(3)-B2(3) 

RETURN 
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REM Фани кк к кк кк SUBROUTINE - DATE ENTRY VERIFY 
REM *3XSEXEREXREFEKRKREXKEKXEK H1-flag (118=bad 0-ОК) % R$=date String 
REM ******* Co-(mm,dd,yy) * C7=pos of Ist "/" X С8=роз of end "/" 


H1=0 

1122 

C7=POS(R$,"/", 1) 

C8=POS(R$,"/",C7+1) 

C2(2)=1 

B$=SEG(R$,(C8 МАХ C7)«1,LEN(R$)-(C8 MAX C7)) 
B$=B$8V$ 

C2(3)=VAL(B$) 

IF C2(3)<>N3 AND C2(3)=>1 AND C2(3)=INT(C2(3)) THEN 3490 
H1=118 

GO TO 3840 

IF C7<>0 THEN 3530 

IF T1<>5 THEN 3470 

С2(1)=1 

RETURN 

B$=SEG(R$,1,C7-1) 

IF B$<>"END" THEN 3590 

IF T1<>5 AND C8<>0 THEN 3470 

С2(1)=12 

С2(2)=31 

RETURN 

B$=B$&V$ 

C2(1)=VAL(B$) 

IF C2(1)=N3 OR C2(1)>12 OR C2(1)<>INT(C2(1)) OR C2(1)<1 THEN 3470 
IF C8<>0 THEN 3680 

IF T1<3 OR T1=5 THEN 3470 
C2(1)=01(T1)*(C2(1)-1)+1 
C2(1)=C2(1)+C9(1)-C1(T1)#INT(C9(1)/C1(T1)-0.2)-1 Ще 
IF C2(1)>12 THEN 3470 

RETURN 

С0(2)=28 


ТЕКТАОМХ 4051 PROGRAM 


PAGE NO: 100 і 
TITLE ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


IF 0.25*C2(3)<>INT(0.25*C02(3)) THEN 3710 
C0(2)=29 ! 
B$=SEG(R$,C7+1,C8-C7-1) 
IF B$<>"END" THEN 3780 
IF T1<3 OR T1>4 THEN 3470 
C2(1)=01(T1)*C2(1) 
IF C2(1)>12 THEN 3470 
Ce(2)2CO(C2(1)) 
RETURN 
B$=B$&V$ 
C2(2)=VAL(B$) 
IF C2(2)zN3 OR C2(2)<>INT(C2(2)) OR C2(2)<1 THEN 3470 
ТЕ C2(2)>C0(C2(1)) THEN 3470 
С0(2)=28 
RETURN 
PRINT "Invalid Date!GG" 
RETURN 
FOR R1=1 TO 42 
FOR Re=1 TO L1 
PRINT "ROW ";R2;"COLUMN ";R1;": "; 
INPUT 09(Е2, R1) 
NEXT Re 
NEXT R1 
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DISK VERSION -- GANTT1/PROGRAM/OUTPUT/NODOC 


100 
110 
560. 
570 
580 
590 
600 
610 
620 
630 
650 
660 
670 
680 
690 


710 


720 
730 
740 
750 
760 
770 
780 
790 


INIT 
PRINT "LThis Task generates GANTT Chart" 
M9=MEMORY 
DIM А1(61),А2(16),А3(16) ,A4(12) ,A5(12) ,K$(300) ,5(321) 
DIM C1(4) ,C2(3) ,C3(3) ,C9(3) ,F$(51),G$ (54) , R$(24) ,V$(15) ‚W$(48) 
DIM B2(3),B9(3),C$(9),Co(12) ,D2(3) ,D5(3) ,He(3) 
DATA 31,28,31,30,31,30,31,31,30,31,30,31, 1,7,1,3 
N6=0 
RESTORE 600 
READ CO,C1 
F$=" JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC " 
N3=-2.713E+288 
V$=STR(N3) 
SUN МОМ TUESWEDNES THURS FRI SATUR" 
DAYS WEEKS MONTHS QUARTERS YEARS" 


e... si vi МИКС о оо ө о 


თ 


О з © O თ O \л თ + 


ЗЛОМ — MW O № 
• 
ЗЭ э бс їл OW Q) 


- - ` 


O tU) — CC чал - O wu 


25,0,1,3,15,35,37,45,59, 61 199,71,82,92,92,92, 104, 108, 108 
112,112,120,129, 129, 138, 140, 146, 158, 154,168,168, 181, 189, 191 
189,197,204,216,224 ‚234 
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DATA 34,0,16,16,24,48,48,58,66,66,70, 84,93, 101, 101, 103, 111, 115, 113 
DATA 123, 123, 129, 138, 136, 147, 145, 155, 167, 167, 177, 181, 188, 196, 194 
DATA 204,204,217, 223,233,241 

RESTORE 720 

READ S 
G1=0 
G2=0 
G3=130 
G4=100 
G5=5 

G6=3 

G7=3 

G8=0.5 

R1=3 

R2=5 

R3=3 

R4=31.5 

Е1=1. 

Егаг. 

E3=1. 

E4=3. 

E5=1 

E6z2. 

E7=1 

E8=2.5 

Е9:0. 866 

Е0-1.5 

БАТА 1,16,31,76,92,98,128,158,166,168,170,172,173,203,233,235 
DATA E37 1238, 268,298, 300, 302, 303, 333, 363, 365, 367 , 368, 398, 428, 429 
DATA 459,460,490,491,521,522,552,553,583,584,614,615, 645, 646, 676 
DATA 677,707,708, 738,739,769,770,800,801, 831,832, 862, 863, 893, 894 
RESTORE 1240 . 

READ A1 

FOR 11=1 TO 16 

A2(11)=0 
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‚330 A3(11)=0 

1340 NEXT I1 

1360 CALL "UNIT",O 

1370 PRINT "JJWhat is the Name of the GANTT Chart? и 
1380 PRINT " K"; 

1390 INPUT P$ 

1400 PRINT "JJIrisert in Unit #0 the Disk containing Chart ";P$ 
1410 PRINT "To continue, type <CR>. "; 

1420 INPUT Y$ 

1430 CALL "MOUNT" ‚0, Y$ 

1440 Z$="@GANTT1/"&P$ 

1445 N$=Z$&"/DATA" 

1450 X$=2$&"/CHART" 

1460 CALL "FILE",O,X$,Y$ 

1470 IF Y$<>"" THEN 1500 

1480 PRINT "J";X$;" Chart does not exist on this Disk!GG" 
1490 GO TO 1370 

1500 OPEN X$;1,"R", Y$ 

1510 DELETE 480,1500 

1520 DIM A$(923) 

1530 READ #1:A$ 

1540 CLOSE 1 

1570 N$:2$&"/DATA" 

1580 OPEN N$;1,"R",Y$ 

1590 READ #1:R$,L1 

1600 DELETE 1400,1590 

1610 M9zMEMORY 

1620 READ #1:D9 

1630 CLOSE 1 

1670 GOSUB 9050 

1680 GOSUB 8720 

1690 Z1=C8 

1700 Z$=R$ 

1710 PRINT "JJBeginning Data Date is ";Z$ 

1720 PRINT "Indicate beginning Column Date: HHHHHHHH"; . 
1730 INPUT R$ 
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1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
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GOSUE 9252 


IF 81 THEN 1720 
GOSUB 8720 
21-С8-21 
IF 21:20 AND 21<-27 ТНЕМ 1830 
PRINT "Beginning Date must be within 28 weeks of и; 2$ 
PRINT R$;" is ";Z1;" weeks from "; 7$ 
R$-2$ 
GO TO 1670 
B$=SEG(W$,6%C7+1,6) 
IF B$=" SUN" THEN 1880 
PRINT R$;" is ';B$;". Select a Sunday!GG" 
R$=Z$ 
GO TO 1670 
N5=21 
1220 
PRINI "LRow Descriptions for Chart ";P$;"J" 
FOR 11-30 TO 61 STEP 2 
[2=12+] 
Y$=SEG(A$,A1(I1),1) 
IF Y$=" " THEN 2000 
Х%-5ЕС(А%,А1(11»1),30) 
PRINT " ROW ";I2;"; ",X$ 
GO TO 2000 
NEXT 11 
PRINT "JJIndicate the 3 Rows to be Graphed: HHHHHHHH" 
PRINT "(If necessary, type O's to make 3) K"; 
INPUT H2 
I2z0 
FOR I1=1 TO 3 
IF H2(11)=0 THEN 2100 
IF H2(11)=>1 AND H2(11)<=L1+1 THEN 2100 
11=3 
12=1 
NEXT 11 
IF I2=0 THEN 2150 
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2120 
2130 
2150 
2160 
2170 


2180: 


2190 
2209 
2210 
2220 
2239 
2249 
2250 
2260 
сето 
2280 
2290 
2300 
2310 
2320 
2330 
2350 
2360 
2365 
2370 
2375 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
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PRINT "Rows must be between 1 and "C LEGS 
GO TO 2010 f 

PRINT "LLegend name for:J" 

IF H2(1)=0 THEN 2220 


PRINT" Row ";H2(1);": ННННННННННННННН"; 
INPUT O$ 

IF LEN(O$)<=15 AND LEN(O$)<>0 THEN 2220 

PRINT " 15 characters maximum!GG" 

GO TO 2170 

IF H2(2)=0 THEN 2280 

PRINT " Row ";He(2);": HHHHHHHHHHHHHHH" ; 
INPUT P$ 

IF LEN(P$)<=15 AND LEN(P$)«»0 THEN 2280 

PRINT " 15 characters maximum!GG" 

GO TO 2230 

IF H2(3)=0 THEN 2350 


PRINT" Row ";H2(3);": HHHHHHHHHHHHHHH" ; 

INPUT Q$ 

IF LEN(Q$)<=15 AND LEN(Q$)<>0 THEN 2350 

PRINT " 15 characters maximum!GG" 

GO TO 2290 

N1=0 

OPEN N$;1,"F", Y$ 

DELETE 1510,2360 

DELETE D9 

M9=MEMORY 

DIM D9(L1,28) 

READ #1: Y$,11,D9 

CLOSE 1 

N1=0 

N2=9999999 

22=21+13 MIN 27 

FOR 12=1 TO 3 

FOR 11=21+1 ТО 2241 

IF H2(I2)=0 THEN 2530 
N3=D9(H2(12),11) 
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IF N3<=N1 THEN 2500 
N1=N3 
IF N3=>N2 THEN 2520 
N2zN3 
GO TO 2540 
11=72+1 
NEXT [1 
NEXT 12 
IF N2=>0 THEN 2580 


M2=0 

PRINT "JJJThe minimum Y value of the selected Rows is и; INT(N2) 
PRINT "and the maximum Y value is ";INT(N1) 

PRINT "JIndicate graph's:" 

PRINT " Minimum Y value: HHHHHH"; 

INPUT H5 

PRINT " Maximum Y value: HHHHHH"; 


INPUT H6 

PRINT " Interval | HHHHHH"; 

INPUT H7 

I3=(H6-H5)/H7 

I3=I3-INT(I3) 

IF I3=0 THEN 2720 

PRINT "Interval must evenly divide into the range!GG" 
GO TO 2580 

PRINT "JJJShall the Chart be generated on the Sereen(32) or on" 
PRINT "the Plotter(1)? _ HH"; 

INPUT D1 

IF D1=32 OR D1=1 THEN 2780 

PRINT " type '32' or '1' please!GG" 
GO TO 2720 

IF р1=32 THEN 2840 

PRINT "JReady Plotter !GG" 

PRINT "To continue, type <CR>. "; 

INPUT Y$ 

PRINT €32:"L" 

29-05+06#2+67+68 
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MOVE 
DRAW 
DRAW 
DRAW 
DRAW 
MOVE 
DRAW 
MOVE 
DRAW 
MOVE 
DRAW 
MOVE 
DRAW 
MOVE 
DRAW 
MOVE 


DRAW 
MOVE 
DRAW 
IF D 
PRINT @D1,25:90,90 
PRINT €D1,17:E5,E6 
GO TO 3120 


Х6-Е 
Y6=E 


ер1: 
011: 
001: 
6D1: 
6D1: 
eD1: 
8D1: 
6D1: 
6D1 
6D1: 
6D1 
6D1 
6D1 
6D1 
6D1 
6D1 
6D1 
6D1 
ер1 
1=32 


5 
6 


G1,G4-Z9-L1%*R1 
G3,G4-Z9-L 1*R1 
63,64 

61,64 
G1,G4-29-L 1*R1 
G1,G4-G5 
G3,G4-G5 
R4«G8,G4-G5-G6 


:63,G4-G5-G6 


R44G8,Gu-G5-G6*2 


:63,G4-G5-G6*2 
:G1,G4-G5-G6*2-G7 
:G3,G4-G5-G6*2-G7 
:G1,G4-G5-G6*2-G7-G8 
:63,G4-G5-G6*2-G7-G8 

: R4 ,G4-G5 

: Ry, G4-G5-G6%*2-G7-G8-L1*R1 

> R4+G8 ,G4-G5 

:R4+G8 , G4-G5-G6*2-G7-G8-L1*R1 


THEN 3100 


FOR I1=10 ТО 28 STEP 5 
V$=SEG(A$,A1(I1),2) 

IF Уфа" " THEN 3410 
Z2=VAL(V$) 
0%-5ЕС(А%,А1(11-1),2) 
Z3=VAL(U$) 
X$=SEG(A$,A1(I1+2),1) 
Y$=SEG(A$,A1(11+3),30) 
IF X$="S" THEN 3340 
Z$=SEG(A$,A1( 1144) , 30) 


MOVE 


€D1:5,G4-Z9-R1*(Z2-1) 
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355 DRAW 601:5,04-29-81#23 
3270 IF D1=32 THEN 3430 

3280 MOVE 6D1:2,G4-Z29-R1*Z2340.5 
3299 PRINT 6D1:Y$ 

3300 MOVE 601:4.5,04-29-81#23+0.5 
3310 PRINT 601:2% 

3320 GO TO 3430 

3340 MOVE 6D1:3,G4-Z9-R1*(Z2-1) 
3350 DRAW @D1:3,G4-Z9-R1*Z3 
3370 IF D1-32 THEN 3430 

3380 MOVE 601:2.5,04-29-К1#23+0.5 
3390 PRINT 601: Y$ 

3400 GO TO 3430 

3410 11=28 

3420 GO ТО 3490 

3430 FOR 13=Z2 TO 23 

3440 IF X$="S" THEN 3470 
3450 A3(13)=1 

3460 GO TO 3480 

3470 A2(13)=1 

3480 NEXT 13 


3490 NEXT I1 
3500 IF р1-32 THEN 3530 
3510 PRINT 6D1,25:0,0 

3530 GO TO 3760 

3540 FOR I1=10 TO 28 STEP 6 


3550 X$=SEG(A$,A1(11),2) 
3560 Үф=ЅЕС(А$,А1(11+1),2) 
3570 Z$=SEG(A$,A1(1142) ,1) 


3580 Z2=VAL(X$) 
3590 Z3=VAL(Y$) 


3610 IF Z$=" " THEN 3760 
3630 IF Z$="2" THEN 3710 
3660 FOR 12-22 ТО 23 

3670 A2(I2)=1 

3680 NEXT 12 


000-6405-02 TEKTRONIX 4051 PROGRAM 


PAGE NO: 109 
TITLE ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


4690. GO TO 3740 


3710 FOR Іг-22 TO 23 

3720 43(12)=2 

3730 МЕХТ 12 

3740 МЕХТ 11 

3760 120 

3770 FOR 11=30 ТО 61 STEP 2 
3780 X$-SEG(A$,A1(I1),1) 
3800 Y$=SEG(A$,A1(114+1) , 30) 
3810 I2=I2+1 

3815 IF I2>L1 THEN 4020 
3820 IF А2(12)=0 THEN 3850 


3830 21=61+3.5 
3840 GO ТО 3890 
3850 ІК A3(I2)=0 THEN 3880 
3860 21=61+5.5 
3870 GO TO 3890 


3880 Z1=G1+0.5 

3890 IF D1<>32 THEN 3950 

3900 Х7-21 

3910 YTzG4-Z9-R1*I240.5 

3920 K$=Y$ 

3930 GOSUB 8240 

3940 GO TO 3980 

3950 PRINT @D1,17:E5,E6 

3960 MOVE 6D1:21,G4-Z9-R1*I240.5 
3970 PRINT @D1: Y$ | i 
3980 IF X$="N" OR X$<>"Y" THEN 4030 
3990 MOVE €D1:G1,G4-Z9=R1*I2 

4000 DRAW 8D1:G3,G4-Z9-R1*I2 

4010 | GO TO 4030 

4020 I1=61 


4030 NEXT 11 

4050 X$=SEG(A$,A1(1),15) 
4060 Y$=SEG(A$,A1(2),15) 
4070 IF D1=32 THEN 4100 
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PRINT €D1,17:E1,E< 
GO TO 4120 

Х6-Е1 

Y6=E2 

IF уф=" " THEN 4380 
IF D1=32 THEN 4230 
MOVE @D1:0.5,G4-2.5 
PRINT @D1:X$ 

MOVE 6D1:0.6,G4-2.4 
PRINT 6D1:X$ 

MOVE @D1:0.5,G4-4.7 
PRINT @D1: Y$ 

MOVE 6D1:0.6,G4-4.6 
PRINT @D1: Y$ 

GO TO 4510 
Y7=G4-2.4 

Х7-0.5 

K$=X$ 

GOSUB 8240 
Y7=G4-2.3 

Х7=0.6 

GOSUB 8240 
Y7=G4-4.6 

Х7=0.5 

K$=Y$ 

GOSUB 8240 
Y7:G4-4,5 

Х7-0.6 

GOSUB 8240 

GO ТО 4510 

IF 01=32 THEN 4450 
MOVE 601:0.5,С4-4 
PRINT @D1,17:E3,E4 
PRINT @D1:X$ 

MOVE 6D1:0.6,G4-3.9 
PRINT 6D1:X$ 
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GO TO 4510 

Х7-0.5 

Х7=64-4 

X6=E3 

 Үб=Е4 

K$=X$ . 

GOSUB 8240 

IF D1=32 THEN 4560 
PRINT €D1,17:E5,E6 
MOVE @D1:8,G4-13 
PRINT ёр1:"А СТ І У І T Y" 
GO TO 4620 

X7=8 

X6=E5 

Y6=E6 

Y7=G4-13 

K$="A C T I У I T Y" 
GOSUB 8240 
X$=SEG(A$,A1(4),16) 
IF D1=32 THEN 4670 
MOVE @D1:G3-17,Gü-4 
PRINT €D1:X$ 

GO TO 4710 
X7=G3-17 

Y7:G 4-4 

K$=X$ 

GOSUB 8240 
X$=SEG(A$,A1(3),45) 
GOSUB 7670 

IF р1=32 THEN 4780 
PRINT @D1,17:E3,E4 
MOVE @D1:25.5,G4-4 
PRINT 6D1:X$ 

GO TO 4840 

X6=E3 

Y6=E4 
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4,800 Х7:25.5 
4810 Y7=G4—4 
4820 K$=X$ 
4830 GOSUB 8240 
4840 X$-SEG(A$,A1(6),30) 
4850 Y$=SEG(A$,A1(7) , 30) 
4860 IF р1=32 THEN 4930 
4870 PRINT 601,17:Е9,Е0 
4880 MOVE @D1:0.5,0 
4890 PRINT €D1: Y$ 
4900 MOVE @D1:0.5,1.5 
4910 PRINT €D1:X$ 
4920 GO TO 5030 
4930 X6=E9 
4940 Y6-kOC 
4950 X7=0.5 
4960 Y7=0 
4970 K$=Y$ 
4980 GOSUB 8240 
4990 Y7=1.5 
5000 X7=0.5 
5010 K$=X$ 
5020 GOSUB 8240 
5030 X$=SEG(A$,A1(5),6) 
5040 IF D1=32 THEN 5080 
5050 MOVE 6D1:G3-5.7,2.5 
5060 PRINT 6D1:X$ 
5070 GO TO 5140 
5080 X7=G3-5.7 
5090 Y7=2 
5100 K$-X$ 

· 5110 GOSUB 8240 
5140 MOVE @D1:R4+G8,4 
5150 DRAW @D1:R4+G8,G4-29-L1#R1-G8 
5160 MOVE 6D1:G3,G4-Z29-L 1*R1-G8 
5170 DRAW @D1:G3,4 
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ЈЕ Diz3e THEN 5210 
PRINT @D1,17:E7,E8 
GO TO 5260 
X6=E7 
Y6=E8 
J4=0 
J5=0 
Z1=N5 
21=21+1 
22-22-1 
Z2=21+13 MIN 42 
23=(G3-R4-G8)/(Z2-Z1+1) 
Z5zR44G840.5-23 
21=64-79+0.5 
FOR I1=Z1 TO Ze 
Ј4=Ј4+1 
J5=J5+1 
28-27 
25=25+23 
FOR I2=1 ТО L1 
28=28-Е1 
ЈЕ р9(12,11)<0 ТНЕМ 5790 
Y$=STR(D9(12,11)) 
IF Y$<>" 1.0E-4" THEN 5500 
Y$=" 0/00" 
GO TO 5680 
Y$=REP("",1,1) 
13=POS(Y$,".",1) 
IF 13=0 THEN 5580 
IF LEN(Y$)=>8 THEN 5640 
FOR 1321 TO 8-LEN(Y$) 
Уфа" "ауф 
NEXT I3 
GO TO 5640 
IF LEN(Y$)=>6 THEN 5640 
FOR 13=1 TO 6-LEN(Y$) 


PAGE NO: 113 
ABSTRACT NO: 


51/07-0102/0 


TEKTRONIX 4051 PROGRAM 


PAGE NO: 114 
TITLE ABSTRACT NO: 


Gantt Chart 51/07-0102/0 


Ү$=" "&Y$ 
NEXT I3 
GO TO 5680 
I3=POS(Y$,".",1) 
IF [3=0 THEN 5680 
Y$=REP("/",I3,1) 
У$=ВЕР("" LEN(Y$)-1,2) 
IF р1232 THEN 5730 
PRINT 601,17:Е7,Е8 
MOVE 6D1:25,28 
PRINT 001: Y$ 
GO TO 5799 
X6=E7 
Y6=E8 
X7=Z5 
Y7=Z8 
K$=Y$ 
GOSUB 8240 
NEXT Те 
IF D1<>32 THEN 5880 
Х7=25+23-4.5 
Y7=G4-Z9+G8+0.5 
K$=STR(C2(2)) 
K$=REP("",1,1) 
GOSUB 8240 
GO TO 5910 
MOVE @D1:25+23-4.5,G4-29+G8+0.5 
PRINT @D1:C2(2) 
D5=C2 
С5-1 
GOSUB 8400 
IF D5(1)=C2(1) THEN 6330 
IF D1<>32 THEN 6040 
XT225-(J4*23/2-1.5)«423/2 
Х7-04-29+08+0.5+07 
B$=SEG(F$,4*C2(1)-4,4) 
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5990 ЈЕ B$<>" Ј" ТНЕМ 6010 

6000 B$="DEC" | 

6010 K$=B$ 

6020 GOSUB 8240 

6030 GO TO 6100 

6040 MOVE @D1:25-(J4%*23/2-1.5)+23/2,G4-29+G8+G7+0.5 
6050 B$=SEG(F$,4*C2(1)-4,4) 

6060 IF B$<>" J" THEN 6080 

6070 B$="DEC" 

6080 PRINT 6D1:B$ 

6090 [Е Z5+23-0.7>128 THEN 6170 

6100 Ј4=0 

6120 MOVE @D1:Z5+Z3-0.5,G4-G5-G6 

6130 DRAW 0D1:Z5+Z3-0.5,G4-Z9-L1%#R1 
6140 MOVE 6D1:25423-0.5,G4-Z9-L 1*R1-G8 
6150 DRAW @D1:25+Z3-0.5,4 

6170 IF D5(3)=C2(3) THEN 6330 

6180 IF D1<>32 THEN 6260 

6190 X7T225-J5*23/2-3423 

6200 Y7=G4-G5-G6+0.5 

6210 K$=STR(D5(3)) 

6220 K$z"19"&K$ 

6230 K$=REP("",3,1) 

6240 GOSUB 8240 

6250 GO TO 6290 

6260 MOVE 601:25-05#23/2-3+23,04-05-06+0.5 
6270 PRINT 6D1:"19";D5(3) 

6280 ЈЕ 25+23-0.5>128 THEN 6330 

6290 J5=0 


6310 MOVE 6D1:25423-0.5,G4-G5-G6 
6320 DRAW @D1:25+23-0.5,G4-G5 
6330 NEXT I1 

6350 IF D5(1)<>C2(1) THEN 6510 

6360 IF D1<>32 THEN 6450 

6370 X7225-(J4923/2-1.5)«23/2 

6380 Y7=G4-Z9+G8+G7+0.5 
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6390 B$zSEC(F$,4K*C2(1),4) 

6400 IF B$«»" J" THEN 6490 
6410 B$="DEC" | 

6420 K$=B$ 

6430 GOSUB 8240 

6440 GO ТО 6510 

6450 MOVE 601:25–(Ј4#23/2-1.5)+23/2 ,604-29+08+07+0.5 
6460 B$=SEG(F$,4*C2(1),4) 

6470 IF B$<>" J" THEN 6490 
6480 B$="DEC" 

6490 PRINT @D1:B$ 

6510 IF D5(3)<>C2(3) THEN 6650 
6520 IF D1<>32 THEN 6600 

6530 Х7-25-05%23/2-3%23 

6540 Y7=G4-G5-G6+0.5 

6550 K$zSTR(D5(3)) 

6560 K$=REP("",1,1) 

6570 K$z"19"&K$ 

6580 GOSUB 8240 

6590 GO TO 6650 

6600 MOVE 6D1:25-J5*23/2423-3,G4-G5-G640.5 
6610 PRINT €D1:"19";D5(3) 

6650 Z5-R4«G8-0.5-23 

6660 H3=4 

6670 H4zG4-Z9-L1*R1-G8 

6680 Z5=R4+G8 

6690 H8=(H4-H3)/((H6-H5)/H7) 
6700 H9=H5-H7 

6730 FOR I1=H3 TO H4 STEP H8 
6740 H9=H9+H7 


6750 Y$=STR(H9) 

6760 Y$zREP("",1,1) 

6770 IF LEN(Y$)=6 THEN 6880 
6780 FOR 13=1 ТО 6-LEN(Y$) 
6790 Уфа" "&Y$ 

6800 NEXT I3 
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6810 IF Р1«232 THEN 6875 
6820 X7=R44+G8-6.6 | 

6830 Y7=11-1.25 

6840 K$-Y$ 


6850 GOSUB 8240 

6860 GO TO 6890 

6870 MOVE 6D1:R44G8-6.6,11-1.25 
6880 PRINT 6D1:Y$ 

6890 MOVE €D1:R4,11 

6900 DRAW @D1:G3,11 


6910 NEXT [1 
6930 FOR 1121 TO 3 


6940 IF H2(11)=0 THEN 7630 
6970 IF Z1<>1 THEN 7020 

6980 Miz-1 

6990 M2z-1 

7000 M3=Z5 

7010 GO TO 7070 

7020 M1=25 

7030 M2=INT(D9(H2(I1),Z1-1)) 
7040 Ме-НЗ+ (Ме-Н5) / (Н6-Н5) # (H4 -H3) 
7050 M3=Z5 

7070 FOR І2-21 TO 22 

7080 M3=M3+Z 3 

7090 M4=INT(D9(H2(11),12)) 
7100 M4=H 3+(M4-H5) /(H6-H5) # (H4-H 3) 
7110 GOSUB 7840 

7120 M1=M3 

7130 M2=M4 

7140 NEXT 12 

7160 M9=G4-L1*R1-G8-5-29 

7170 IF I1=3 THEN 7490 

7180 IF 11=2 THEN 7340 

7190 M1z0.5 

7200 M2=M9+1 


7210 M3=5.5 
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Ма-М9-1 

N6=1 

GOSUB 7840 

IF D1=32 THEN 7290 
MOVE @D1:6,M9 
PRINT @D1:0$ 

GO TO 7630 

X7=6 

Y7=M9 

К$=0$ 

GOSUB 8249 

GO TO 7630 
M1=0.5 
М2-М9-3-1 
М3-5.5 
М4=М9-3+1 

N6=1 

GOSUB 7840 

IF D1=32 THEN 7440 
MOVE €D1:6,M9-3 
PRINT €D1:P$ 

GO TO 7630 

X7=6 

Y7=M9-3 

K$=P$ 

GOSUB 8240 

GO TO 7630 
M1=0.5 
М2=М9-6+1 
М3=5.5 
M4=M9-6+1 

N6=1 

GOSUB 7840 

IF D1=32 THEN 7590 
MOVE €D1:6,M9-6 
PRINT @D1:Q$ 
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7580 
7590 
7600 
7610 
7620 
7630 
7640 
7645 
7650 
7670 
7680 
7690 
7700 
7710 
7120 
7730 
7740 
7750 
7760 
7770 
7780 
7190 
7800 
7810 
7820 
7840 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
7930 
7940 
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GO TO 7630 
X7=6 
Y7=M9-6 
K$=Q$ 
| GOSUB 8290 
NEXT 11 
PRINT "GGGGG" 
INPUT Z$ 
RETURN 
K2=LEN(X$) 
FOR K1=LEN(X$) TO 1 STEP -1 
Z$=SEG(X$,K1,1) 
IF 7942" " THEN 7730 
К2-К2-41 
GO TO 7740 
K1=1 
NEXT K1 
IF KezLEN(X$) THEN 7820 
2%=" " 
FOR K1=1 TO (LEN(X$)-K2)/2-1 
2$=2$&" " 
NEXT K1 
X$=REP(Z$,K2+1, (LEN(X$)-Ke)/2) 
X$=REP(Z$,1,0) 
RETURN 
IF М1<0 OR М2<0 OR М3<0 OR M4<O THEN 8220 
IF M2>H4 OR M4»H4 THEN 8220 
IF M2<H3 OR M4<H3 THEN 8220 
M2=INT(M2) 
M4=INT(M4) 
IF N6=1 THEN 7910 
IF D9(H2(11),12)<0 OR D9(H2(11),12-1)<0 THEN 8220 
MOVE @D1:M1,M2 
IF I1=1 THEN 8200 
S1=M3-M1 
52-М4-М2 
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53=508(5170+5272) 

L=1 і 

IF ABS(S2)<L AND ABS(S1)<L THEN 8210 

01-1%(51/53) 

UezL*(Se/S3) 

U3ze*U1 

Ица г 

GO TO 11 OF 8040,8090,8150 

GO TO 8200 

FOR I4=0 TO M3-M1-U1*2 MAX М4-М2-)2%2 STEP 2*(U1 МАХ 02) 
RDRAW @D1:U1,U2 
RMOVE €D1:U1,U2 

NEXT I4 

GO TO 8200 

FOR 1420 TO M3-M1-U1 MAX М4-М2-02 STEP U1 МАХ Ue 
RDRAW @D1:0,0 
RMOVE 6D1:U1,U2 

NEXT I4 

MOVE @D1:M3,M4 

GO TO 8210 

FOR 14=0 TO M3-M1-U1*3 МАХ M4-M2-U2*3 STEP 3*(U1 MAX 02) 
RDRAW 6D1:U3,U4 
RMOVE 6D1:U1,U2 

NEXT I4 

DRAW 6D1:M3,M4 

DRAW @D1:M3,M4 

N6=0 

RETURN 

FOR I=1 TO LEN(K$) 
J$-SEG(K$,I,1) 
J=POS(". B3AEFJCLGDHOOQTZ27S52XYMV968P RN]111[KUW4" , 7$, 1) 
IF Ј>0 THEN 8290 
J=1 
IF S(J+241)=0 THEN 8340 | 
MOVE Х7+5(5(Ј+241))%Х6%0. 1333, Y7+S(S(J+241)+1)#Y6#0.087 
FOR J1=S(J+241)+2 TO S(J+281) STEP 2 
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PRINT €32,20:5(31)*X0%*0.1333+X7,5(J1+1)*Y6%*0,087+Y7 
NEXT J1 
Х7-Х7%Х6 
МЕХТ І 
RETURN 


ЈЕ C5=0 THEN 8500 


C6=SGN(C5) 

Т1=2 

GO TO T1 OF 8440,8440,8630,8630,8650 
С2(2)=С2(2)+С1(Т1)*С5 

С0(2)=28 

IF 0.25%*C2(3)<>INT(0.25*C2(3)) THEN 8480 
С0(2)=29 

IF C2(2)<1 OR C2(2)>C0(C2(1)) THEN 8510 
С0(2)-28 

RETURN 

IF C6+1 THEN 8600 

C2(1)=C2(1)+C6 

IF C2(1)=>1 AND C2(1)<=12 THEN 8580 
C2(3)=C2(3)+C6 

С2(1)-С2(1)-12%С6 

IF Т1>2 ТНЕМ 8530 

GO TO 8590 

IF T1>2 THEN 8670 

IF C6«1 THEN 8450 
C2(2)=02(2)-C6*CO(C2(1)) 

IF C6+1 THEN 8520 

GO TO 8450 

C2(1)=C2(1)+C1(T1)*C5 

GO TO 8530 

C2(3)=C2(3)+C5 

GO TO 8490 

С2(2)-С2(2) MIN CO(C2(1)) 

GO TO 8490 
С4-0.25%С2(3)-ІКТ(0.25%С2(3)) AND C2(1)>2 
IF C2(1)=1 THEN 8770 
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FOR B3=1 TO С2(1)-1 
CazC4«CO(B3) 
NEXT B3 р 
С4=С4+С2(2)+365%С2(3)+1МТ(0.25%(С2(3)-1)) 
C8=INT(C4/7 )+1 
C7=C4-(C8-1) *7+1 
RETURN 
GO TO T1 ОҒ 8860,8860,8970,8970, 9000 
CezC3 
GOSUB 3970 
C5=C4 
C6=C8 
СгаВг 
GOSUB 3970 
[Е Т1-2 THEN 8950 
С8-С5-СЧ 
RETURN 
C8=C6-C8 
RETURN 
C8=INT((C3(1)+2)/C1(T1))-INT((B2(1)+2)/C1(T1)) 


| C8=12/C1(T1) #(с3(3)-В2(3))+С8 


RETURN 

C8=C3(3)-B2(3) 

RETURN 

H1=0 

C7=POS(R$,"/",1) 

C8=POS(R$,"/",C7+1) 

С2(2)=1 і 
B$=SEG(R$,(C8 МАХ C7)+1,LEN(R$)-(C8 МАХ СТ)) 
B$=B$4V$ 

C2(3)=VAL(B$) 

IF C2(3)<>N3 AND C2(3)=>1 AND C2(3)=INT(C2(3)) THEN 9150 
E1=118 

GO TO 9500 

IF C7<>0 THEN 9190 

IF T1<>5 THEN 9130 
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9170 C2(1)=1 

9180 RETURN | 

9190 B$=SEG(R$,1,C7-1) 

9200 IF B$<>"END" THEN 9250 

9210 IF T1<>5 AND C8<>0 THEN 9130 

9220 C2(1)=12 

9230 C2(2)=31 

9240 RETURN 

9250 B$=B$&V$ 

9260 C2(1)=VAL(B$) 

9270 IF C2(1)=N3 OR C2(1)>12 OR C2(1)<>INT(C2(1)) OR C2(1)<1 THEN 9130 
9280 IF C8<>0 THEN 9340 

9290 IF T1<3 OR T1=5 THEN 9130 

9300 С2(1)+С1(Т1)“ (Се(1)-1)+1 

9310 C2(1):C2(1)4C9(1)-C1(T1)* INT(C9(1)/C1(T1)-0.2)-1 
9320 IF C2(1)>12 THEN 9130 

9330 RETURN 

9340 С0(2)-28 

9350 IF 0.25*C2(3) OINT(0.25*C2(3)) THEN 9370 
9360 С0(2)-29 

9370 B$=SEG(R$,C7+1,C8-C7-1) 

9380 IF B$<>"END" THEN 9440 

9390 IF T1<3 OR T1>4 THEN 9130 

9400 C2(1)=C1(T1)*C2(1) 

9410 IF C2(1)>12 THEN 9130 

9420 C2(2)=C0(C2(1)) 

9430 RETURN 

9440 B$=B$8V$ 

9450 C2(2)=VAL(B$) 

9460 IF C2(2)=N3 OR C2(2) OINT(C2(2)) OR C2(2)<1 THEN 9130 
9470 IF C2(2)»CO(C2(1)) THEN 9130 

9480 С0(2)-28 

9490 RETURN 

9500 PRINT "Invalid Date!GG" 

9510 RETURN 

9520 FOR К1=1 TO 42 
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952. FOR Ег-1 TO 11 

95-е PRINT "BOW ":Re;'"COLUMN ";R1;": "; 
9550 INPUT D9(R2, R1) 

9555 NEXT R< 


9570 NEXT RI 
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AUTHOR PERIPHERALS 


: е Tektronix, Inc. А 
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ABSTRACT 


Statements: 712 


Files: 1 ASCII Program 
1 ASCII Data (Project Directory) 
Automatically marks data files 


The program will build and maintain files of current capital budget 
projects. Up to 50 projects may be stored on one tape, with standard 
information as: ў 


Rank 

Project description 
Budget (by quarter) 
Category 

Originator 

Actual cost 


Cumulative capital 
Up to 30 sub-items may contribute to a project including: 


Item description 
CCA number 

Cost 

Date 

Quarter 


All information may be examined or altered to correct errors or changes 
in budget, etc. 


Charts may be produced for one, or all projects, giving total project 
cost, cumulative cost, budget vs. actual expenditures, etc. 


Cumulative and quarterly graphs of budget vs. actual cost for any project, 
or the total of all projects may be drawn. 


The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc., assumes no responsibility and 
shall have no liability, consequential or otherwise, of any kind arising from 
the use of this program material or any part thereof. 


000-6405.00 


a 


TITLE 


Capital 


000-6405-02 


Budget 


FUNCTION 


LIST MENU 

ADD ITEM TO PROJECT 

ADD PROJECT 

CHANGE PROJECT PARAMETERS 
CHANGE ITEM PARAMETERS 
CHART FOR ONE PROJECT 
CHART OF ALL PROJECTS 
GRAPHICS 

DELETE ITEM FROM PROJECT 
DELETE ENTIRE PROJECT 
DELETE ALL PROJECTS 
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TAPE STRUCTURE 


The tape file structure is maintained by the program; new files 
-are automatically marked as additional projects are added. 


File Number Contents 


1 ASCII Program 
2 ASCII Data (all project titles, budgets, etc.) 


3 on ASCII Data (one project per file, up to 30 items 
each) 


File #2, containing the project information, is always in memory, 
this allows quick access to each project file. As new projects are 
added, the new information is appended to File #2, and the last file 
is marked to hold the project items. 


If a project is deleted, only the project file (2) must be altered, 
it's corresponding item file will be written over at the next addi- 


tion of a project. 


OPERATING INSTRUCTIONS 


Press AUTOLOAD if the program is located on the first file. If 
not the first file: 


FIND # (file number) 


OLD 
RUN 


Note that if the program is not located on the first file the 
program must be recoded. 


The program automatically marks data files as they are needed. 


The menu will appear, the User-Definable Keys or the actual key 
number may be pressed. 


Projects and items may be added, or deleted in any order, though 

a project must exist before items can be added to it. If a project 
is an entity in itself, that, has no sub-items, its project name 
should also be entered as the only item. In this manner the 
project will serve as the budget, while the single item will 
represent total actual costs. 
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VARIABLE STRUCTURE 
Variable Used to Store Iype 


B Item cost Array (N) 
25*Nf) 
№) 


№,4) 


C2 Project originating department Array 


( 
C1 Project category Array ( 
( 
( 


C3 Project budget Array 
Temporary variable Simple 
Item date String (8*N) 
Item description String (25*N) 
Temporary variable Simple 
Item CCA number String (F*N) 
File number Simple 
File number Simple 
Project descriptions String (25*NP) 
Loop variable Simple 
Loop variable SImple 
Temporary variable String (40) 
Loop variable Simple 
Temporary variable String (10) 
Temporary variable Simple 
Temporary variable String (10) 
Temporary variable Simple 
Window variable Simple 
Window variable Simple 
Number of items per project Simple 
Number of projects Simple 
Project number Simple 
Quarter in which item was initialized Array (N) 
Temporary variable String (7) 
Project summary Array (5) 
Project summary Simple 
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тт Capital iiia TAPE # 


расте | Ë DELETE Ё 
ITEM Ë PROJECT: 


ADD 
; ITEM 


|“ PROJECT PROJECTI- 


Function 


List menu 

Add item to project 

Add project 

Change project parameters 
Change item parameters 
Chart for one project 
Chart for all projects 
Graphs 

Delete item from project 
Delete entire project 
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TITLE 


Capital Budget 


Variable 


X 
xi 
X2 


000-6405-02 


Used to Store 


Window variable 
Project category 
Quarter 

Item cost 
Temporary variable 
Window variable 
Window variable 
Temporary variable 
Output device 
Temporary variable 
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Type 

Array (4) 
Array (№) 
Array (N) 
Array (N) 
String (25*N) 
Array (4) 
Array (4) 
String (8*N) 
Simple 
String (7*N) 
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GO TO Luv 
REM: MENU 


GOSUB 540 
END 


ADD ITEM TO PROJECT 


ADD PROJECT 


седи 
4 


CHANGE PRCJECT PARAMETERS 


чобо 
m 


CHANGE ITEMS IN PROJECI 


4bdu 
4 


CHART FOR ONE PROJECT 


296u 


CHART FOR ALL РЕСЈЕСТ5 


3714 
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REM: GRAFIX 


GOSUB 5170 
END 


REM: DELETE ITEM FROM PROJECT 


GOSUB 196, 
GG ГО 4 


DELETE PROJECT 


2750 


INITIALIZE ALL PROJECTS (CLEAR ALL DATA) 


4 


CAPITAL BUDGET 


AUTHOR: DAVID MILLS 


VARIABLE DEFINITIONS 


NUMBER OF PROJECTS 

STRING CONTAINING PROJECT DESCRIPTIONS 
PROJECT CATEGORY 

PROJECT ORIGINATING DEPT. 

PROJECT COST 
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REM: NUMBER OF ITEMS IN A PROJECT 

REM: STRING CONTAINING ITEM DESCRIPTIONS 

REM: ITEM CCA NUMBER 

REM: ITEM DATE 

REM: QUARTER IN WHICH EACH ITEM WAS INITIALIZED 
REM: ITEM COST 

REM: 


DIM J$(10),15(40),K$(10),5(7) 
DATA 1,1.5,4,¿.5,5 19, 3< 
READ 5,2 
› FIND г 
IF ТУР(0)420 THEN 430 
MARK 1,6144 
FIND 2 
Nose 
PRINT 633: Му 
F$z"" 
GO TO 510 
INPUT €35:Nu 
ЈЕ Nu>»u THEN 4702 
F$z"" 
GO TO 510 
DIM F$(25*NU),C1(N.) ,C2(Nu2 ,C3(Nu, 4) 
Еф="" 
INPUT €33:F$ 
INPUT #33:С1, Се, СЗ 
‚ Feu 
j SET KEY 


REM: 
REM: MENU 
REM: ---- 


PRINT "LJJIHKEY FUNCTIONJ" 
PRINT "11. LIST MENU" 
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PRINT "Ie. ADD ITEM TO PROJECT" 

PRINT "I3. ADD PROJECT" 

PRINT "Ta. CHANGE PROJECT PARAMETERS" 
PRINT "15. CHANGE ITEM PARAMETERS" 
PRINI "16. CHART FOR ONE PROJECT" 
PRINT "17. CHART OF ALL PROJECTS" 
PRINT "16. GRAPHICS" 

PRINT ІНТЕ, DELETE ITEM FROM PROJECT" 
PRINT "IH13. DELETE ENTIRE PROJECT" 
PRINT "iHeu. DELETE ALL PROJECTS" 
INPUT I 

GO TO I OF 4,8,12,16,20,24,28,32,4,4,4,48,52,4,4,4,4,4,4,860 
RETURN 


REM: 
REM: LOAD FILE 
REM: 


IF F<3 
DELETE D$,E$,C$,Q,B 

FIND F 

INPUT @33:N 

IF Neu THEN 830 

DIM D$(25*N) ,E$(7*N) ,C£ (B*N) ,Q(N) ,B(N) 
INPUT €33:D$ 

INPUT @33: 

INPUT 633: 

INPUT 633: 

RETURN 


REM: 
REM: SAVE FILE 
REM: 


IF F<3 THEN 990 
FIND F 
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890. IF ТУР) <>: THEN 915 
доо MARK 1,2048 

910 FIND F 

део PRINT 633:К 

93о ЈЕ Мо THEN 980 
Очи PRINT €35:Ds$ 
850 PRINT €33:C& 
96. РКІКІ 635:ხ§ 
97u PRINT €33:Q,B 
98. CLOSE 

99, RETURK 


Томо + 
lulu КЕМ: SAVE PROJECT FILE 


я зт, 
locu VN LLL ав чь æ м» мз тз о» ты жь nn е» 


Тозо 

ludo PRINT €33:No 

1050 IF Nozu THEN 

1u6u PRINT 635:Е5 

lulu PRINT 635:C1,C2,C3 
Тово CLOSE 

1090 RETURN 


1100 REM: 
1110 REM: LIST AVAILABLE FILES 
Theo RENS AAA se, има 


1130 PAGE 
1140 FOR I=1 TO № 

1150 I$zSEG(F$,25*I-24,25) 
1160 PRINT I;". ";I$ 

1179 NEXT I 

118. RETURN 


1190 REN: 
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REM: ADD ITEM TO PROJECT 
REM: |» --- ---- -- ------- 


GOSUB 1115 

PRINT "JENIER PROJECT NUMBER "; 

FusF 

INPUT F 

F=F+2 

IF FuzF THEN 1290 

GOSUB 71u 

DELETE Х5,Ү%,2%,Х2,Х3 

N=N+1 

DIM X$(25¥*N) ,Y$(8*N) ,Z$(7*N) ,X2(N) , X3(N) 

- ни 

Ze MM 

IF N21 THEN 146. 

FCR I=1 TC N-1 
I$=SEG(D$,25*1-24,25) 
Х$=Х$&1$ 
J$=SEG(C$,8*I-7,8) 
YH=Y$&J$ 
K$=SEG(E$,7*I-6,7) 
2$=2$5К$ 
Хе(1)=9(1) 
ере CL) 

NEXT I 

PRINI "LJJENTER ITEM DESCRIPTION "; 

INPUT I$ — 

ЈЕ LEN(I$)=>25 THEN 1520 

FOR I=LEN(I$)+1 ТО 25 
I$=I$&" " 

NEXT I 

192560(1%,1,25) 

Х5-Х%%15 

РКІМІ "JENTER CCA NUMBER "; 


ово (а) (а) у ба) 


4 
5 
6 
í 
Š 
9 


~ 
- 
~ 
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INPUT K$ 

IF LEN(K$)=>7 THEN 1590 
Kgs" "EKE 

GO ТО 1564 

K$=SEG(K$,1,7) 

2$=7$&К% 

GOSUB 176. 

Y$-Y$&Jg$ 

PRINT "JENTER QUARTER (1,2,3, or 4) "; 
INPUT X<(N) 

PRINT "JENTER ITEM COST "; 
INPUT X3(N) 

DELETE D$,C$,Ł$,Q,B 

DIM р%(25%%),С9(8%8),8%(7%8),0(М),В(М) 
2$=Х$ 

С%-У% 

C9=7 9 

Q= X< 

B=X3 

PELETE NS А а 2,825 
GCSUE 85. 

hziURN 


REN: 
REN: CORRECT DATE ENTRY 
REN: 


PRINT "JENTER РАТЕ (ie 10/31/79) п; 
INPUT J$ 

IF LEN(J$)>8 THEN 1800 
I=POS(J$,"/",1) 

GO IO I ОЕ 1800, 1860, 1870 

GO TO 1605 

Jj$z".,"&J$ 

І-РО5(0%,"/",4) 

GO ТО 1-3 OF 1800€,1900,1940 
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GO TO 18. 
I$=SEG(J$,1,3) 
I$=I$&"À" 


о J$=SkG(J$,4,4) 


J$=1$4JS 
RETURN 


REM: 
REM: DELETE ITEM FROM PROJECT 
ВЕМ о 2-2 шасы касы шашашаш 


v GOSUB 111% 


000-6405-02 


PRINI "JENTER PROJECT NUMBER "; 

INPUT F 

Е=Е+2 

GOSUB 710 

PAGE 

FOR I=1 ІС N 
1%-5ЬҺС(р%,25%1-24,25) 
PEINT XM dese 

NEXI I 

PRINT "JENTER ITEM TO BE DELETED "; 

INPUI J$ 

IF J$z"" THEN 2276 

P=VAL(J$) 

IF PzN THEN 2230 

FOR I=P+1 TO N 
I$=SEG(D$,25*1-24,25) 
2$=КЕР(1$,25*(1-1)-еч, 25) 
I$=SEG(C$,8*I-7,8) 
С%-ЕЬР(1%,8%(1-1)-7,8) 
K$=SEG(ES,7*1-6,7) 
E$=REP(K$,7*(I-1)-6,7) 
Q(I-1)=Q(I) 
B(I-1)=B(I) 

I 


TEKTRONIX 4051 PROGRAM 


PAGE NO: 17 


TITLE ABSTRACT NO: 


000-6405-02 


Capital Budget 51/00-0103/0 


N=N-1 
IF Міо THEN 2260 

DIM D$(25*N),C$(8*N) ,E$(7*N) ,Q(ND ,B(N) 
GOSUB 85у 

RETURN 


REM: 
REM: ADD PROJECT 
REM шаа ar __ 


PRINT "LJENTER PROJECT IDENTIFICATION ns 
INPUT IE 
DELETE X$,X1,X2,X3 
NozNu+1 
DIN X$(25*No) ,X1 (МО) ,X2 (NO) , X3(No, 4) 
ЈЕ Мо-1 THEN 2445) 
FOR Дат TO Nas) 
Х1(12-С1(1) 
X2(1)=C2(L) 
FOR J=1 IC 4 
X5S(1,J)=C3(1I,J) 
NEXT J 
Ne XI I 
IF LEN(I$)=>25 THEN „ყმას 
FOR I=LEN(I$)+1 TO 25 
1%-1%%" п 
NEXT I 
I$=5EG(1$,1,25) 
X$=F$&I$ 
PRINT "JENTER CATEGORY "; 
INPUT X1(NC) 
PRINT "JENTER ORIGINATOR "; 
INPUT Хе(Мо) 
PRINT "JENTER PROJECT BUDGETJ" 
FCR 1-1 ТО 4 5 
PRINT " QUARTER ";1;" ans 


TEKTRONIX 4051 PROGRAM 


PAGE NO: 18 
TITLE ABSTRACT NO: 


Capital Budget 51/00-0103/0 


INPUT X3(NO,I) 
NEXT І 
DELETE F$,C1,C2,C3 
DIM F$C25*N2),C1C(N2) ,Ce(NG) ,C3(NuU,4) 
F$-X$ 
C1=X1 
CezXe 
С5-Х3 
DELETE Х%,Х1,Х2,Х3 
GOSUB 1019 
FIND Мозг 
IF ТҮР(0)<>0 THEN 2700 
MARK 1,2248 
FIND Nu+z 
PRINT 6335: 
CLOSE 
REIURN 


REM: 
REN: DELETE PROJECT 
КЕРЗІ _ Essen 


GOSUB 1112 

PRINT "WJENIER PROJECT IO ВЕ DELETED *; 

INPUT P 

[Е Р<1 OR PONG THEN 2940 

IF P=Nu THEN 288. 

FOR ЈЕР TO Nu-1 
I$zSEG(F$,25*I-24,25) 
F$eREPCI$,25*(I-1)-24,25) 
c1(1)=C01(1+1) 
Cz(I)=C2(I+1) 
C3(I)=C3(I+1) 

NG=No-1 
IF ко>2 THEN 2930 
Еф-"" 
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GO TO 2936 

DIM F$(25%*N0),C01(N0),C2(Nu),C3(NO) 
GOSUB 1010 

RETURN 


REM: 
REM: 
REM: 


CHART OF ONE PROJECT 


БОЖЕ 

60508 1110 

PRINT "JENTER PROJECT NUMBER "; 

INPUT P 

IF P<1 OR PONS THEN 3292 

F=P+Z2 

IF Fóú=F THEN 3060 

GOSUB 710 

PAGE 

IF N>u THEN 3100 

PRINT "JJTHERE ARE NO ITEMS IN THIS РЕОЈЕСТОС" 
RETURN 

I$=SEG(F$,25*P-24,25) 

PRINT USING "3zX,""PLASTICS""": 

PRINT USING "г9Х,""САРІТАЇ BUDGET""":; 

PRINT USING "22X,""PROJECT FINANCIAL STATEMENT""": 
PRINT USING ny gum 
PRINT "| PROJECT: ";I$ 
PRINT USING "71X,""K,""": 
PRINT "| RANK: ";Р;" 
PRINT Се(Р) 

PRINT USING "71X,""Kj""": 
PRINT USING "T72""-w"w: 
PRINT USING WAK qM Де Im mms 
PRINT "| ITEM DESCRIPTION 
PRINT "ITEM COST; CUM CAP |" 
PRINT USING n Zu de 


CATEGORY: ";C1(P);" 


ORIGINATOR: 


¡CCA NUMBER} DATE {!QTRI"; 
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PRINT USING """Кү"" gox, ინე ნი; 


Зебу К-с 
3270 ІМАСЕ Mat ZD к] "8A," У U DE Dx m" Bp sx wi 6D,” 
3285 FOR 151 TON 
329u 1%-5Һ6(0%,25%1-24,25) 
306 J$=SEG(C$,8*I-7,8) 
331% K$=SEG(L$,7*I-6,7) 
332) KzK+B(1) 
3330 PRINT USING 3270:1%,К%,07%,0(1),В(1),К 
3340 NEXT 1 
2590 PRINT USING "7ernonnn, 
3360 DELETE Т 
3319 DIM T(5) 
5380 ЈЕ №1. THEN 3432 
3595 PRI USI ET S Ка N Project summary on following pager": 
Sao INPUT J¢ 
3415 РАСЕ 
342) GO IO 3440 
0450 PRINT USING упа A 
5442 PRINT USING "25X,""JJPROJECT SUMMARY STATUS"""; 
5450 PRINT USING "5Х,61""-"""; 
5460 PRINT " i QTR 1 1 бе | QTR3 | QTR4 jf; 
5470 PRINT " TOTAL pM 
545. PRINT USING "5X, 61""-"""; 
549, PRINT USING чч"к"",су,""үтт E 
359. PRINT USING "5X,5""| BUD | ACI "" упирини; 
3510 PRINT USING "5X,11""| нии; 
35er PRINI USING """ КК"",5Х,61""-"""; 
3530 PRINI USING тит тт by ОТ "nn. 
354) PRINI USING "5X,11""| nn; 
3550 IMAGE " I",6(90," |") 
3560 IMAGE "K",42¿X,4(4D," |") 
357 EI 
3580 Т1:0 
359% FOR I=1 TON 


I(Q(I))=T(Q(I))+B(I) 
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NEXT I 

T(5)=SUM(T) 

T1=C03(F-2,1)+03(F-2,2)+03(F-2,3)+03(F=2,4) 

PRINT USING 3550:C3(F-2,1),I(1),C3(F-2,2),T(2),C3(F-2,3),I(3) 
PRINT USING 3565:C3(F-2,4),T(#4),T1,T(5) 

PRINT USING "5Х,61""-"""; 

РКІ USI Митин, ЗЗниии une Cost stated in thousands of аспа т" 
DELETE T 

RETURN 


REM: 
REM: CHART WITH ALL PROJECTS 
-___._--222-4-+ჭჟგ 


PAGE 
IF No>G THEN 3770 
PRINT "JJCURRENTLY YOU HAVE NO PROJECTS ON FILEG" 
RETURN 
PRINT USING "Зах. ""PLASTICSU Nts 
PRINT USING "29X,""CAPITAL BUDGEI"M': 
PRINT USING "euX,""YEAR-TO-DATE FINANCIAL STATEMENT""": 
PRINT USING "2X, 68" tim 
PRINT "  ¡RANK¡ PROJECT IDENTIFICATION „САТ ORIG i BUDGET"; 
PRINT "¡ACTUAL; CUM САР |" 
PRINT USING "„Хх,68""-"""; 
PRINT USING """K  j"",66x,"nimmn; 
Ка 
IMAGE" |j "3p" | " 255 КИРА pta 5p." RI L D: t i" 5D," ESTOS НАЈ 
FOR 1-1 TO Nu 
С9=0 
F=I+< 
GOSUB 710 
I$z5EG(F$,25*I-24,25) 
IF ОМ». THEN 3950 
19:0 
GO ІС 397. 
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K=K+SUM(B) 

I9=SUM(B) 

FOR J=1 TO 4 

C9=C9+C3(I,J) 

NEXT J 

PRINT USING: 386021, 18061 CL) Co C EX СОТОК 
NEXT I 
PRINT USING "2Х,68""-"""; 
PRI USI """j""33""J"","" ж Cost stated in thousands of dclladbs""". 
RETURN B = 


REM: 
REM: CHANGE PROJECT VALUES 
-<_____––_- 


60508 1115 
PRINT "JJENTER PROJECT TO BE CHANGED: "; 
INPUT P 
I$=SEG(F$,25*P-24,25) 
PRINT "LJJJ1. PROJECT NAME 5"; 1$ 
PRINT "2, CATEGORY : "3C1(P) 
PRINT "3. ORIGINATOR : ";Ce(P) 
PRINT "4. BUDGET" 
FOR I=1 TO 4 = 
PRINT " QUARTER ";I;" — : ";C3(P,I) 
NEXT I 
PRINT "JJENTER THE PARAMETER NUMBER TO CHANGE "; 
INPUT J$ 
IF J$="" THEN 4490 
GO TO VAL(J$) OF 4240,4330,4360,4390 
RETURN 
PRINT "JOLD PROJECT NAME WAS "; 1$ 
PRINT "ENTER NEW PROJECT NAME "; 
INPUT I$ 
IF LEN(I$)=25 THEN 431; 
FOR I=LEN(I$)+1 TO ¿5 
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1$=1$&" " 
NEXT 1 
F$-REP(I$,25*P-24,25) 
GO TO 4460 
PRINT "JOLD CATEGORY WAS ";C1(P);" ENTER NEW CATEGORY "; 
INPUT СТ(Р) 
СС TO 4460 
PRINT "JOLD ORIGINATOR WAS ";Ce(P);". ENTER NEW ORIGINATOR ", 
INPUT CZ(P) 
GO TO 4462 
PRI "JENIER THE NEW BUDGET FOR THE PROJECT (RETURN FOR NO CHANGE) J" 
FOR [21 ТО 4 = 
PRI " QUARTER ";I;". OLD VALUE WAS ";C3(P,I);" ENTER NEW] VALUE 
INPUT J$ 
IF J$="" THEN 44552 
C3(P,I)=VAL(J¢) 
NEXT I 
PRINT "JJJANY MORE PARAMETERS TO CHANGE ? "; 
INPUT J$ 
IF J$="Y" OR USE" YES! THEN 4120 
GOSUB 1019 
RETURN 


REM: 
REM: CHANGE ITEMS IN PROJECT 
--___-_____ 


GOSUB 1100 

PRINI "JENTER PROJECT NUMBER TO CHANGE 5 
Fo=F 

INPUT F 

F=F+2 

IF FosF THEN 4630 

GOSUB 710 

IMAGE 3D,4X,25A,7A,2X,8A,5D, 2X, 7D 
I$:SEGCF$,25*(F-2)-24,25) 
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PRINT "L PROJECT : MISIT 
PRINT " NO. ITEM DESCRIPTION CCA NUMBER DATE 
PRINT " ITEM COST" 
PRINT USING "yon I" : 
FOR [=1 ТО М 
I$2SEG(D$,25*I-24,25) 
J$25EGCC$,8*I-7,8) 
K¢=SEG(E$,7*1-6,7) 
PRINT USING 4610:1,1%,К5,Ј%,0(1),В(Ј) 
NEXT I 
PRINT "JWHICH ITEM NEEDS TO Bk CHANGED 2 Ms 
INPUT 19 
PRINT "L1. ITEM DESCRIPTION o Ms 
PRINT "2, CCA NUMBER : 
PRINI "3. DATE 
PRINT "4. QUARTER 
iT "5. ITEM COST 
"JENTER PARAMETER NUMBER to CHANGE "; 
PC 
P OF 4842,4932,5212,52650,5590 
URN 
PRINT "JOLD ITEM DESCRIPTION WAS "I$ 
PRINI "JENTER NEW DESCRIPTION и. 
INPUI I$ 
IF LENCI$)225 THEN 4912 
FOR IzLEN(I$)«1 TO 25 
I$2I$&" " 
NEXT І 
рф= КЕР(1$,25#19-24, 25) 
GO TO 5116 
PRINT "JOLD CCA NUMBER WAS ";K$;" ENTER NEW NUMBER "; 
INPUT K$ 
IF LEN(K$)=>7 THEN 4980 
Kg=" "&K$ 
GO IO 4957 
K$=SŁG(K$,1,7) 
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E$=REP(KS,7*19-6,7) 

GO TO 511Š 

PRINT "JOLD DATE WAS ";Ј8;" ENTER NEW DATE "; 

INPUT J$ 

GOSUB 1829 

C$=REP(J$,8*19-7,8) 

GO TO 5119 

PRINI "JOLD QUARTER WAS ";0(19);" ENTER NEW QUARTER "; 
INPUT 0(19) 

GO IO 5110 

PRINT "JOLD ITEM COST WAS ";B(I9);" ENTER NEW COST "; 
INPUT В(19) 

PRINT "ЈЈАМУ MORE CHANGES ? "; 

INPUT J$ 

IF J$="Y" OR J$="YES" THEN 4630 

GOSUB #50 

RETURN 


REM: 
КЕМ: GRAFIX 
REM: 


DELETE X,Y,X1,Y1 

DIM X(4),Y(4),X1(4),Y1(4) 

Х=0 

Yeu 

Х1=5 

Y1=5 

GOSUB 1110 

PRINT "JJENTER PROJECT NUMBER, OR 'TOTAL' 
INPUT J$ 

IF J$="T" OR J$="TOTAL" THEN 5330 
P=VAL(J$) 

IF P<1 OR PONS THEN 6730 

GOSUB 5382 

GO TO 5562 
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FOR P=1 TO NO 
5340 GOSUB 5380 
535. NEXT P 

GO TO 5564 


REM: 
538 REM: SUB TO GET COSTS FOR PROJECT, OR TOTAL 
539, ЙЫШ сез зш nn ыды T ese ioci асы 


F=P+< 


541, GOSUB 710 

542) IF NzO THEN 5550 

543) FOR I=1 ТО 4 

544) X(1)=X(I)+C3(P ,I) 

545, FOR J=1 TO N 

546. Ү(1)=Ү(1)+(9(7Ј)=1)*В(Ј) 
547. NEXT J 

548u NEXT I 

549, X1=X 

обу Y lis Y 

5510 FOR [зг TO 4 

552) X1(I)=X1(I)+X1(I-1) 
555; Y1(I)=Y1(I)+Y1(I-1) 
555; RETURN 

556, PAGE 

5570 Muz-9999 

5562 ЕОК І-1 704 

559. Мо=Мо MAX X(I) MAX Y(I) 
5600 NEXT I 

5610 GOSUB 5700 

562; M1=Mo 

5630 Mu=-9999 

564; FOR I=1 ТО 4 

5654 Мб-МО MAX X1(I) MAX У1(1) 


5662 NEXI I 
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GOSUB 5722 
MezMo 
GO TO 5824. 


REM: NEAT TIC ROUTINE 


FOR І-1 TO 12 
к-МО/1071 
IF სC1ა THEN 575% 
NEXT І 
FOR J=1 TO 7 
IP E<=S(J) THEN 5785 
NEXT J 
Мо=5(73) #10? 
RETURN 
FOR [-с TO 1 
FOR J=š IO ა. STEP 6. 
PRINT €Z,21:15+(1=1)*65+3,70 
PRINT €Z,20:15+(1=1)*65+3,10+3%*1.3 
PRINT €Z,20:60«(Iz21)*65,104J*1.3 
NEXT J 
NEXT I 
VIEWPORT 15,60,10,70 
WINDOW 0,13.5,0,5 
FOR I=1 TO 13 
MOVE 67:1,0 
DRAW @Z:1,0.1 
NEXT I 
FOR I=0.5 TO 5 STEP 5,5 
MOVE 62:0,I 
DRAW 62:0.3,1 
NEXT I 
MOVE €Z:0,-1/3 
PRINT @Z:"QTR. 1 
FOR І=0 TO 5 
J=M2/5#1 
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MOVE 62:-2.5,1-0.1 
PRINT 62: 


6030 NEXT I 

6046 WINDOW 0, 13.5,0,Ма 

6656 MOVE 62:06,0 

6960 DRAW @Z:3,X1(1) 

6076 DRAW @Z:6,X1(2) 

6080 DRAW 62:10,Х1(3) 

6095 DRAW 67:13,Х1(4) 

6106 MOVE 62:0,C 

6115 FOR I=4 ТО < STEP -1 

6126 IF Y1(1)<>Y1(I-1) THEN 6140 
6136 NEXT [I 

6146 IF I=1 AND Y1(1)=Š THEN 6190 
6150 FOR 4-1 ТО I 

6162 K=(J=1)*3+(J=2)*6+(J=23)*10+(J=4)%*13 
6175 DRAW €Z:K,Y1(J) 

6186 NEXT J 

6190 VIEWPORT 80,125, 10,70 

бе. WINDOW 0,13,u,5 

6210 FOR I=0.5 TO 5 SIEP 2.5 

6220 MOVE 62:06, І 

6230 DRAW 62:0.3,1 

6246 NEXT I 

6250 MOVE €Z:0,-1/3 

626. PRINT @Z:"QTR. 1 e 3 4" 
6270 FOR 1=0 ГО 5 

6280 Ј=М1/5%] 

6295 MOVE @Z:-2.5,I-0.1 

6300 PRINT @Z:J 

6316 NEXT I 

6320 WINDOW (,13,0,M1 

6336 FOR I=1 TO 4 

6340 MOVE 62:3*I-1,6 

6350 RDRAW 62:0,Х(1) 


6366 RDRAW 62:0.9,0 
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DRAW €Z:3*1-0.1,6 
FOR J=%.15 TO 0.75 STEP 6.15 
MOVE €Z:3*1-1+J,0 
RDRAW 02:0,Х(1) 
NEXT J 
NEXT І 
FOR I=1 TO 4 
IF Y(I)=9 THEN 6530 
MOVE 62:1#3+0.1,0 
RDRAW 62:0,Y(I) 
RDRAW €Z:0.9,0 
DRAW €Z:3*1+1,0 
FOR ძ=0 TO Y(I) STEP M1/100 
MOVE 82:3*I40.1,J 
RDRAW €Z:0.9,0 
NEXT J 
NEXT I 
PRINT 62,21:65-4%1.79,95 
PRINT €Z:"PLASTICS" 
ЈЕ РЭМ THEN 6640 
I$z:SEG(F$,25*P-24,25) 
FOR 1225 TO 1 STEP -1 
J$=SEG(I$,I,1) 
IF J$<>" " THEN 6625 
NEXT I 
PRINT 062,21:(130-I*1.79)/2,90 
PRINT 62:14 
PRINT 62,21:65-21%1.79,85 
PRINT €Z:"Summar y of capital plan status for FY Guo" 
PRINT 62,21:65-16%1.79,80 
PRINT @Z:"Year to date BUDGETED vs ACTUAL" 
PRINT 02,21:19,73 
PRINT 6Z:"K$ CUMULATIVE" 
PRINT 62,21:75,73 
PRINT 62:"K$ QUARTERLY" 
DELETE X,Y,X1,Y1 
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RETURN 


REM: 
REM: INITIALIZE ALL PROJECTS (CLEAR ALL DATA) 


PRINT "LJJTHIS ROUTINE WILL DELETE ALL PROJECTS FROM THE TAPE" 
PRINI "DO YOU WISH TO CONTINUE?GGGGG "s 

INPUT 18 

IF 1$<>"Ү" AND I$<>"YES" THEN 6900 

FIND < 

MARK 1,6499 

FIND z 

PRINT 633:9,0 

CLOSE 

RETURN 
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[тт E ABSTRACT NUMBER 
\ 
3D FUNCRION PLOT 51/00-5506/0 
ORIG NAL'DATE REVISION DATE MEMORY REQUIREMENT 
January 1980 8K 
AUTHOR PERIPHERALS 


Dony Robert, Brussels, Belgium Optional - 4662 Plotter 
ABSTRACT 


Statements: 206 
Files: 1 ASCII Program 


The program draws a 3D plot of a two-variable mathematical function 
(Z=F(X,Y), with the hidden lines removed from the plot. The user 
defines the function and enters real or representative data to 
obtain the plot. However, the program does not prompt for these 
inputs; the user simply enters them into the specified lines in 

the program. 


The program provides the option of obtaining uniform scaling so 
that the piot surface fills the entire screen, which doesn't 
provide an accurate representation of the function, or obtaining 


true (rather than uniform) scaling. This option is set by changing 
a single program line. 


The user may also set the following: 


interval on the X and Y axis 
azimuth angle in degrees 

dip angle in degrees 

number of lines on the surface 
number of points on each line 


file number to record the data on tape for later use or 
faster drawing 


The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc., assumes no responsibility and 
shall have no liability, consequential or otherwise, of any kind arising from 
the use of this program material or any part thereof. 


000-6405-00 


ма. <... 


PAGENO: 1 
TITLE ABSTRACT NO: 


3D FUNCTION PLOT 51/00-5506/0 


METHOD 


The program draws a function of two variables Z = F(X,Y) with hidden 
line removal. The function Z is defined in a rectangular region so 
Х1<=Х<=Х2 апа Yl<=Y<=Y2, 


PROGRAM LOADING 


Press AUTOLOAD if the program is located on the first file on the 
tape otherwise: 


FIND # (program file number) 
OLD 
RUN 


The program will draw the function plot on the screen. 


PROGRAM OPERATION 
An additional text example is given in lines 47 - 60. 
Change the appropriate lines of code to create the plot desired. 


line 110 - contains the read statement for line 120 
READ X1,X2,Y1,Y2,01,02,L,N,F 


line 120 - contains the data to be read in line 110 
X1,X2 is the interval on the X-axis 
Y1,Y2 is the interval on the Y-axis 
01 is the azimuth angle in degrees 
02 is the dip angle in degrees 
L is the number of lines on the surface 
N is the number of points on each line 
F is the file number to record the data on tape 


line 370 - REM - will provide true scaling 
GOTO 410 - will obtain a uniform scaling so that the 
surface fills the entire screen; but does 
not create a true representation of the 
function. 
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line 1230 - prints at the screen; change to PRINT 01,..... to 
output to the 4662 Plotter 

line 1240 - same as line 1230 

line 2000 - contains the function Z 


for certain functions with vertical asymptotes or 
high-value for Z the functions MIN and MAX may be 
used to take the crest off the plot. Add the 
following lines: 


2001 Z=Z MIN 10 
2002 Z=Z MAX -10 
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120 DATA -10,10,-10,10,75,20,31,31,0 


370 GOTO 410 
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TITLE 


3D FUNCTION PLOT 


INTERNAL DATA STRUCTURE 
Variable Used to Store 


A1 Function variable 
A2 Function variable 
A3 Temporary variable 
A4 Temporary variable 
Bl Temporary variable 
B2 Temporary variable 
B3 Temporary variable 
B4 Temporary variable 
C1 Cosine of 01 
Cosine of 02 
Function variable 
File number to record data on tape 
Temporary variable 
Scaling variable 
Scaling variable 
Temporary variable 
Temporary variable 
Temporary variable 
Temporary variable 
Temporary variable 
Number of lines on the surface 
Temporary variable 
Window size 
Window size 
Window size 
Window size 
Number of points on each line 
Azimuth angle in degrees 
Dip angle in degrees 
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Type 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Array 
Simple 
Simpie 
Simple 
Simple 
Simple 
Simple 
Simple 
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Variable 


P 
0. 
К 
5 
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Used to Store 


Temporary variable 
Temporary variable 
Function variable 
Temporary variable 
Sine of 01 

Sine of 02 

Temporary variable 
Temporary variable 
Temporary variable 
Temporary variable 
Function variable 
Interval on X-axis 
Interval on X-axis 
Temporary variable 


Temporary variable 


Interval on Y-axis 
Interval on Y-axis 
Temporary variable 
Plot function 

Temporary variable 
Temporary variable 
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CON თ თ О мо a 


REM.... 1) 
REM... 
REM... 2) 
REM... 
REM... 
REM 
REM... 
REM... 
REM... 
REM... 
REM... 
REM... 
REM... 
REM... 
REM... 3) 
REM... 
REM... 
REM... 
REM... 
REM... 
REM... 
REM... 
REM... 

2 REM... 4) 
REM 
REM 
REM 
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EPR 51/00-5506/0 ..... 30 FUNCTION PLOT..... 


THIS PROGRAM DRAWS A FUNCTION OF TWO VARIABLES Z=F(X,Y) 
. WITH HIDDEN LINES REMOVAL. 
THE FUNCTION Z IS DEFINED IN A RECTANGULAR REGION SO THAT 
. Х1<=Х<=Хе AND YI1<=Y<-Yo. 
REM.... TO OBTAIN A DRAW YOU MUST DO JUST LIKE THIS: 


WRITE THE FUNCTION Z IN LINE 2000 
EXAMPLE: 2000 Z=10*SIN(X)/X*SIN(Y)/Y 
WRITE THE DATA IN LINE 120 CORRESPONDING TO THE READ 
STATEMENT IN LINE 110: 
110 READ X1,X2,Y1,Y2,01,02,L,N,F WHERE 


[X1,X2] IS THE INTERVAL ON THE X-AXIS 
[Y1,Y2] IS THE INTERVAL ON THE Y-AXIS 
O1 IS THE AZIMUTH ANGLE IN DEGREES 
O2 IS THE DIP ANGLE IN DEGREES 
L IS THE NUMBER OF LINES ON THE SURFACE 
N IS THE NUMBER CF POINTS ON EACH LINE 
F IS THE FILE NUMBER TO RECORD THE DATA ON TAPE FOR 
FASTEST DRAWING (NO RECORD IF Fz0). 
STATEMENT 370 MAY BE ... 370 GOTO 410 (1) OR 
370 REM (2) 


IF (1),YOU OBTAIN A UNIFORM SCALING SO THAT THE SURFACE 
FILLS THE ENTIRE SCREEN, THUS YOU DON'T OBTAIN THE TRUE 
REPRESENTATION OF THE FUNCTION 

IF (2),YOU OBTAIN THE TRUE SCALING 


REMARKS: 


* ON THE 4051 IT TAKES ABOUT ONE MINUTE BEFORE DRAWING 
* ON THE 4052 AND 4054 DRAWING BEGINS ALMOST IMMEDIATELY 
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R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
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EM 
EM 
EM 
ЕМ 
ЕМ 
ЕМ 
ЕМ 
ЕМ... 
ЕМ... 
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* FOR CERTAIN FUNCTIONS WITH VERTICAL ASYMPTOTES OR 
HIGH-VALUE FOR 2,700 CAN USE THE FUNCTIONS MIN 


AND MAX TO TAKE THE CREST OFF. 


EXAMPLE: 


2000 7=... 
2001 Z=Z MIN 10 
2002 Z=Z MAX -10 


EM... 5) TEST EXAMPLE 


ЕМ 
ЕМ 
ЕМ 
ЕМ 
EM 
EM 


INIT 
PAGE 


HERE IS A VERY NICE FUNCTION ! 


YOU DO: - 


2000 Z=10*SIN(X)/X*SIN(Y)/Y 
120 DATA -10,10,-10,10,45,30,51,51,0 


370 REM 
RUN 


READ X1,X2, ҮТ, Ye,01, O2, L, N,F 
DATA -10,10,-10,10,75,20,31,31,0 


DIM M(2 


, 130) 


REM... INITIALIZATION FOR THE SUBROUTINE IN LINE 2000 


SET DEG 


REES 


S1=SIN(O1) 
S2=SIN(02) 
С1-С05(01) 
Сг-С05(02) 


SET RAD 


REM... 


M1=1000 


IANS 


SEARCH FOR THE APROXIMATIVE MAXIMUM IN ABSCLUTE VALUE OF 
REM... THE DIVIDER 19 IS ARBITRARY 
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Mez-1000 
M3=M1 
МчаМе 
FOR Y=Y1 TO Ye STEP (Ye-Y1)/19 
FOR XzX1 TO Хе STEP (X2-X1)/19 
GOSUB 2000 
MizM1 MIN XO 
MezMe MAX XO 
M3zM3 MIN YO 
M4=M4 MAX YO 
NEXT X 
NEXT Y 


REM... ENLARGEMENT TO BE SURE TO HAVE ALL THE PICTURE 
REM... ON THE SCREEN 


M1=M1-ABS(M1)/20 
Mé=M2+ABS(M2)/20 
M3zM3-ABS(M3)/20 
M4=M4+ABS(M4)/20 


REM... SCALING... 


H1=128/(M2-M1) 
Не:98/(К4-МЗ) 


REM... FOR TRUE SCALING... 
IF H1<=H2 THEN 400 

H1=H2 

H2zH1 


REM... F=NUMBER OF THE TAPE FILE TO RECORD THE DATA 


IF F=0 THEN 440 
FIND F 
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о X32 (Xe-X 1) /N 


000-6405-02 


Y3=(Y2-Y1)/L 


REM... INITIALISATION OF THE MATRIX WHICH KEEP THE MAXIMAL AND 
REM... MINIMAL CRESTS 


Ма- 1 

DIM M(z,65) 
Mz101 

DIM M(2,130) 


REM... START OF THE COMPUTATION OF THE LINES.... 


FOR Uz1 TO L+1 
IF 01>0 AND 01<180 THEN 546 
Y=Y1+(U-1)*Y3 
Х=Хе 
G1=2 
GO TO 590 
YzYe-(U-1)*Y3 
XzX1 
6121 
60508 2000 
A1=(X0-M1)*H 1 
B1=(Y0-M3)*H2 
Раг 
IF М(г,А1)2-1 THEN 670 
P=0 
IF M(2,A1)=>B1 THEN 650 
Pze 
IF M(1,A1)<=B1 THEN 670 
Pz1 
FOR V=1 TO N 
IF С1:2 THEN 700 
X=X1+V*X3 
GO TO 720 
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XzX2-V*X3 
GOSUB 2000 
Az=(X0-M1)*H 1 
B2=(Y0-M3)*H2 
Q=P 
IF M(2,A2)=-1 THEN 1140 
520 
Q=0 
IF M(2,A2)=>B2 THEN 820 
9-2 
IF M(1,Az¢)<=Be THEN 840 
0-1 
IF PzO AND 0-0 THEN 1150 
IF P=0 ОК 0-0 THEN 950 
IF P=Q THEN 1140 
5-1 
2121 
22-2 
IF P=1 THEN 930 
21=2 
22-1 
1-21 
GO ТО 960 
T=P+Q 
DzM(T,A2)-M(T,A1)-Bz«B1 
IF DzO THEN 1140 
A3z(B1*A2-B2*A1-M(T, АТ) *A2«4M(T, A2) *A1)/D 
B3=(B1*M(T,A2)-B2*M(T,A1))/D 
IF PzO THEN 1120 
A4zA2 
B4=Be 
AzzA3 
Be=B3 
GOSUB 
А2-Ач 
Be=B4 
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PAGENO: 13 
TITLE ABSTRACT NO: 


3D FUNCTION PLOT 51/00-5506/0 


IF S=O THEN 1150 
T=Z2 
P=0 
GO TO 960 
А1=АЗ 
B1=B3 
GOSUB 1230 
P=Q 
А1-А2 
В1-В2 
NEXT V 

NEXT U 

HOME 

LIST 2000 

LIST 120 

END 


REM... SUBROUTINE WHICH DRAWS THE SURFACE, RECORDS THE DATA 
REM... ON THE TAPE AND UPDATE THE CRESTS MATRIX BY LINEAR 
REM... INTERPOLATION 


PRINT 632,21:A1,B1 

PRINT 632, г0:Аг, Бе 

IF Е-0 THEN 1270 

WRITE А1,Б1,А2,В2 

I1=INT(A1+0.5) 

І2=ІМТ(А2+0.5) 

IF 11<12 THEN 1330 

M(1,12)=M(1,12) MIN Be 

M(2,12)=M(2,12) MAX Be 

RETURN 

13:(11 MIN I2)+1 

14:11 MAX I2 

FOR К=13 TO 14 
R=(K*(B2-B1)+A2*B1-A1%B2)/(A2-A1) 
M(1,K)=M(1,K) MIN R 


000-6405-02 TEKTRONIX 4051 PROGRAM 


რდი * 


PAGE NO: 14 
ABSTRACT NO: 


30 FUNCTION PLOT 51/00-5506/0 


1310 M(2,K)=M(2,K) МАХ R 
1420 NEXT K 
1430 RETURN 


1995 REM... SUBROUTINE WHICH CONTAINS THE FUNCTION Z AND CONVERTS IT 
1996 REM... INTO THE (ХО, YO) COORDINATE AFTER TWO ROTATIONS AND A 
1997 REM... PROJECTION. 


2000 Zz10*SIN(X)/X*SINCY)/Y 
2010 XOz-X*S1«Y*C1 

2020 YOz-X*C1*Se-Y*S1*Se«Z* Сг 
2030 RETURN 
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RECORDKEEP" 11 u 
ORIGINAL DATE REVISION DATE MEMORY REQUIREMENT 
March 1979 > 16K 
AUTHOR PERIPHERALS 
4907 File Manager 
: " Optional - 4631 HCU, 4641 Printer 


ABSTRACT 


Statements: 2188 
Files: 14 ASCII Program 


Tables and lists are two common ways in which people organize information 
to make comparisons or summarize data.  RECORDKEEP II is a simple package 
that allows sorting such a table on the 4907 File Manager. Reports can 
then be quickly generated from this table (database) through the RECORD- 
KEEP II commands that allow editing, sorting, and table listing. 


Twelve commands are available. They are broken down into three functional 
groups. The first group provides the commands necessary to edit the table, 
which we will call a database or file. Commands in the second group in- 
clude file management operations that.allow saving databases and creating 
smaller tables from existing databases. These tables can also be sorted 
and listed to emphasize their content by the third functional group. 
RECORDKEEP II can be applied in areas where you need to store and manipu- 
late small inventories, sales history records, personnel records, patient 
history, or catalogues. 


This software helps you organize and store information as well as put the 
information to work by summarizing it in a more effective tabular form. 


Command 1 -- Add Items to Database 

Command 2 -- Delete Items From Database 
Command 3 -- Modify Items in Database 

Command 4 -- List a Database 

Command 5 -- Create a Local Database 

Command 6 -- Archive a Local Database 

Command 7 -- Make Local Databases From Archive 
Command 8 -- List Directory 

Command 9 -- Delete Archived Database 


Command 10 -- Sort a Database 
Command 11 -- List Database With Subtotals 
Command 12 Stop 


The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc., assumes no responsibility and 
shall have no liability, consequential or otherwise, of any kind arising from 
the use of this program material or any part thereof. 
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TABLE OF CONTENTS 


User Definable Key Description . . . . 
RECORDKEEP II Overview . . . . . . . 


Section I - How To Start , 
Example . . . . 


Section II - Loading RECORDKEEP Onto Disc 
Example , 4^4 u. 0: € ess 4....%-% 


Section III - Creating an Empty Database . 
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Section IV - Manipulate an Existing Database 
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Command 1 - Add Items to Database 
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Example . , . . . < « « « « « ва 
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Command 6 - Archive а Local Database 2 
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Command 7 - Make Local Databases From Archive 
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Command 8 ~ List Directory . ..... 
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Command 12 - Stop – Е 
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£ 
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Tape Directory . . . . . +s +s + © © « * . ° . 
Disc Library/File Structure for Software . 
Disc Library/File Structure for Databases 
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000-6405-02 TEKTRONIX 4051 PROGRAM 


E | PAGE NO: 2 
TITLE ABSTRACT NUMBER 


51/07-6108/1 
RECORDKEEP II 


TITLE RECORDKEEP II 


AUTO HCOPY - Automatically produces a hard copy on a 
4631 when a "Page Full" condition occurs. 


NORMAL - Forces the 4051 to pause and display a blinking 
"F" in the upper left hand corner of the screen 
when a "Page Full" condition occurs. 
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OVERVIEW 


This package actually consists of three different programs. One program 
creates a new database, another program adds information into this newly 
created database and allows the user to manipulate it, and the remaining 
program transfers the necessary programs from the 4051's internal tape 
drive onto the 4907. The user begins each session by inserting the pro- 
gram tape in the 4051 and pressing AUTO LOAD key. Before we go any further 
some general terms will be discussed as they apply to the following 
documentation. 


RECORDKEEP II was designed to address an application where the user has a 
table of information that he wishes to store and from which he periodically 
retrieves all or part of the information and lists and/or sorts it to pro- 
duce reports. The original table would be called a Master database. Master 
databases can be edited and listed, but can not be sorted. This database 

is always retained on disc, since it contains the most current information. 
Working files called Local databases can be created from a Master database 
or another Local file. These Local databases can be listed, sorted, and 
archived, but they can not be edited. Only the Master database can be 
edited. All Local databases are discarded (purged) when the program ter- 
minates normally. If the user wishes to save the information in a Local 
file for future use the file can be archived. Archived databases are not 
purged from the disc unless the user deliberately purges them. A Master 
database can have many Local and Archive databases associated with it, and 
all these databases are said to belong to the same database family. When 
the user creates a Master database, he assigns a family name to it that 
will apply to any other databases that are derived from it in the future. 


Now back to describing the programs and how they work. The remainder of 
the documentation is divided into four sections, which are in the same order 
that the first time user would use them. The first section describes how 
to start RECORDKEEP II. The remaining three sections describe the 3 зер- 
arate programs that make up RECORDKEEP II. 


SECTION I 
How To Start 


The first step is to insert the program tape in the internal tape drive at 
the 4051 and then press the AUTO LOAD Key. The 4051 will give prompts 

for any informatin it needs and actions you must perform. All the necessary 
programs are stored on the tape cartridge. The program does not have the 
capability to format discs, but will prompt the user for all the information 
required to mount the disc(s). If the clock on the 4907 has not been set 

the program requests the date and time of the session in order to set it. 

The next questions ask for the device address where the program disc will 

be inserted, and the device where the databases will reside. After the device 
addresses have been entered the program asks the user to place each disc 

in their respective drives. When the program finishes mounting the disc(s) 

a menu will appear on the screen. Instructions for each program in this 

menu can be found in the following sections. 
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Data Base Management and Report Generation 


Please enter the current date and time as 

(DD-MMM-YY НН:ММ:55): 8-JAN-79 18:85:25 

The disc with the programs will Бе placed in whích device? 0 
The disc with the database will be placed in which device? @ 


Please insert the program/database disc in device 8. 
Then press Return. 


Data Base Management and Report Generation 


MENU 
) Create a new master database? 
2 Manipulate an existing master database? 
) Load system programs onto disc? 


Please enter your selection: 
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SECTION II 


If the program disc does not contain the system programs, enter "3" 

as your selection from the menu іп Section І. This will automatically 
transfer the programs from the tape cartridge to the program disc. 
This will take approximately 5 minutes and can be left unattended. 
Figure II shows what information appears on the screen when the trans- 
fer is complete. Once these programs have been placed on the program 
disc, the remaining two selections in the Section I menu can be run, 


Data Base Management and Report Generation 


Please enter the current date and time as 
(DD-MMM-YY HH:MM:SS): 8-JAN-79 10:05:25 


The disc with the programs will be placed in which device? 0 
The disc with the database will be placed in which device? 0 


Please insert the program/database disc in device მ, 
Then press Return. 


Data Base Management and Report Generation 


MENU 
1) Create а new master database? 
2) Manipulate an existing master database? 
3) Load system programs onto disc? 


Please enter your selection: 3 


FILEINIT TRANSFERED tti 
MAIN TRAMSFERED XXX 
001 TRANSFERED XXX 
002 TRANSFERED %%% 
093 TRANSFERED 1XX 
0938 TRANSFERED 314 
004 TRANSFERED txt 
OUS TRANSFERED XXX 
096 TRANSFERED XXX 
OU? TRANSFERED XXX 
PU7A TRANSFERED XXX 
009 TRANSFERED XXX 


421 Program transfer complete. XXX 


Press AUTO LOAD key to select other programs. 
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SECTION III 


To create a new database first you must initialize it, which is selection 

2 of the AUTOLOAD program, This asks questions about the general structure 
of the new database and what its contents will be, but before we begin let 
us define the terminology we will use. The database is a collection of 
numbers and text arranged in tabular form. Any given row in the table we 
will call an item and the columns of the table are called fields. The ex- 
ample below shows what the program will ask for. 


It is best to spend some time to lay out what you want your Table (database) 
to look like. The program will ask you how many fields you want, the width 
of each field, the content of each field (text or numbers) and its titles. 
Planning in advance makes it easier to answer the questions asked and helps 
you catch some mistakes before they are made. The programs automatically 
inserts spaces between the fields to separate them so include at least 

one space between each field when you lay out your table. Armed with the 
table you constructed we can now quickly answer the questions and initial- 
ize the database. 


The first question asked is how many additional fields will be in the data- 
base. The program automatically reserves the first field for the item numbers. 
It is 5 characters wide, a numeric field, and has a title of "ITEM/". This 
field will always be field 1. You need to enter the number of additional 
fields you will describe that make up the remainder of the database. 


The next question asks for the width of the media the database will be dis- 
Played on. This should be the total width of the database, or put another 
way, the sum of the width of all fields plus the spaces separating each 
field can not be greater than the media width. 


The program will then ask a series of questions for each field in your table. 
First it asks for the width of the field, then whether the content of the 
field will be numeric (numbers) or alphanumeric (text) and finally the field 
title, which can not be longer than the width of its field. 


This information can be easily retrieved from the table you constructed on 
your scratch paper, and the program shows you the maximum length of the 
fields with underscore characters. 


Once all the fields have been described, the program prompts you for a data- 
base family name. This name is used by other programs to select the correct 
database to manipulate in the future. You also have the option of making the 
database a private one. If you so choose the program asks for a password, 
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which will limit any future use ої the database to those who know the 
Password. The database family name and the Password each must be from 

1 to 10 characters long, and start with a letter. The remaining characters 
have to be letters or digits (numbers). Do not put any blanks or other 
characters in these names. 


These are the last questions asked and the Program then writes the ini- 
tilized database onto the disc and informs you that the initialization is 
complete. If you wish to add information to the database file you must 
select option 2 in the menu of the "AUTOLOAD" program described above, 


Data Base Management and Report Generation 


The disc with the programs will be placed in which device? 0 
The disc with the database wil! be placed in which device? 8 


Please insert the program/database disc in device @. 
Then press Return. 


Data Base Management and Report Generation 


MENU 
1) Create a new master database? 

2) Manipulate an existing master database? 
3) Load system programs onto disc? 


Please enter your selection: 1 


FILE INITIALIZATION ROUTINE 


This routine will ask for information regarding titles, size and 
the number of fields required for each item. The first field for 
each item will be а S-character record number in the file and 


labeled as "ІТЕМИ", 


How мапу additional fields of information will be needed 
for each item: 


Enter the width Cin characters) of the media the data base 
will be displayed on. (e.g. for the 4051 screen it would be 
72, for a printer it would be 132 characters) 

The width is: 50 
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Enter, in order, width (number of characters) of each additional 
field, whether the field will contain numeric (1) or alphanumeric (2) 
data, and title for the field. The width of any field can not exceed 
78 characters. 


NOTE: The sum of all additional field widths must be 
less than or equal to 42, 


User Field 2: Field width (іп characters): 
Will entries be numeric (1) or alphanumeric 
Title for field 


User Field 3: Field width (іп characters): 
Will entries be numeric (12 or alphanumeric 
Title for field 


User Field 4: Field width Cin characters): 

Will entries be numeric (12 or alphanumeric 

Title for field 
sEBILIENIS_NENME-_--- mo 


Do you want this data base to be a private file? (Y/N): Y 


Enter a file Password (1 to 18 characters must start with 
а leter but the remaining characters can be alphanumeric. > 
Password is: RECORDS 


1 
223 File initialization completa. 
£ 


Press AUTO LOAD key to select cther programs, 


/ 
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SECTION IV 


Selection "2" in the menu described in Section I is the most common sel- 
ection. This program lets the user edit and manipulate existing databases. 
Before we begin the formal explanation of the 12 available commands some 
time should be spent on some general considerations that apply to many of 
the commands. If the program terminates abnormally, press the AUTOLOAD 
key and enter the start up information again. The program is segmented 

so simply typing RUN will not always give you the desired results. The 
program centers around a menu of 12 commands. Anytime the menu is present 
the user can select the appropriate command to accomplish his task, 


There will be times when the user will enter the wrong menu number by 
mistake. The user can return to the menu and abort a command prematurely 
by either responding to a prompt for database name with a "М" or typing 
zero (0) when asked for a field, or item number. At times you will be 
asked to name databases. These names must conform to the following rules 
They can be 1 to 10 characters long and can be composed of the characters 
A through Z, O through 9. The first character of the name must be a 
letter, and it can not have any leading or imbedded spaces. Even with 
these restrictions you have great flexibility in naming files. Below 
are some examples of good and bad database names: 


Valid Names Illegal Names Reason Name Is Illegal 


HENERY ST RATE imbedded blank 
INVENTORY ST.LOUIS contains a decimal 
RECORDS INVENTORY leading blank 
A193 902ACTUALS begins with number 
B 


RECORDKEEP II maintains and manipulates existing databases using the 12 
commands listed in the menu. It is assumed that the user has read the 
previous sections, since some of the terminology used is described there. 
The menu lists all the commands except for those under the control of user 
definable keys (UDK) #1 and #11. Key #1 can be used to get an automatic 
hard copy on a Tektronix 4631 when a page full condition occurs, while 
UDK #11 will revert the 4051 back to its normal mode of stopping on a 
page full condition and displaying a blinking "F" in the upper left hand 
corner of the screen. In this mode the screen must be manually paged 
(erased) by the user before the program will continue. Some caution 
should ђе used with UDK #1 if you do not have a hard copy unit (4631) 

or if the 4631 is turned off. The screen will immediately erase when the 
page full condition occurs and the user will not have time to read the 
information. There are a few instances when the 4051 will not respond 
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to pressing the UDK's. These are when a page full condition exists, and 
when the program is waiting for the user to enter in information. The 
best time to press the UDK's are when the 4051 is writing information 
on the screen. 


The first prompt the program gives is to enter the database family name. 
This is the name used in Section III above to identify the database. If 
the database is private the password must immediately follow the family 
name separated a colon (e.g. FAMILY:PASSWORD). The next question asks 
where you wish the reports (menu selection 4 and 11) to be printed. 
Usually the screen is selected but if the database is wider than the 
screen (72 chars.) a printer (4641 character printer) would be more 
appropriate. Enter a zero (0) to select the screen, or enter a one (1) 
to choose the printer. If the printer is chosen the next request is 

for the primary (device) address of the printer. 


After these questions have been answered the menu is displayed on the 
screen and you can select the command you wish by entering its number when 
asked. The 12 commands will be explained independently, but a reminder 

in case you find yourself in the wrong command by mistake. You can abort 


a command by entering "!M" for any prompt that asks for a database name or 
a zero (0) for any request for a field or item number. 
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Data Base Managenent and Report Generation 


MENU 
1) Create a печ master database? 
2) Manipulate an existing master database? 
3> Load system programs onto disc? 


Please enter your selection: 2 


RECORDKEEPING & SORTED REPORT GENERATOR 


This program will maintain an inventory record and generate 

sorted reports at the user's request. ñt initial usage, the user 
mist МА dre the disc file through use of the file initialization 
routine. 


Enter the desired database family: 80100. 5—_----- -- —- = 


Do you want reports printed to screen @) ог printer (10: 8 


MENU 


1. Ада items to master database file 
2. Delete items from master database file 
3, Examine or modify an item in master database file 


‚ List local or master database file 
. Create local database file 
. Archive local database file 


. Transfer archived database to local file 
. List directory of database files 


Delete an archived database file 


. Sort local database file 
В es local or master database file with subtotals 
š op 


é 
Enter number desired: 
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COMMAND 1 
Add items to master database file 


The program will prompt you to enter data for each field. Each field prompt 
includes the field title and a series of underlined characters to indicate the 
field width. Items are always added to the end of the Master database (local 
and archived databases can never be added to). The program will scan all ent- 
ries in numeric fields to verify they have valid numeric constants. Item num- 
bers are automatically assigned by the program. To end the command you simply 
enter only a carriage return instead of data when the program begins another 
cycle of field prompts for the next item. 
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MENU 


Add items to master database file 
Delete items from master database file 
Examine or modify an item in master database file 


List local or master database file 
Create local database file 
Archive local database file 


Transfer archived database to local file 
List directory of database files 
Delete an archived database file 


Sort local database file 
s. local or master database file with subtotals 
op 


— >> COON HUB WN 


წა «ი о 
ese 


Enter number desired: Í 


ROUTINE TO ADD ITEMS 


Field titles will appear on the screen іп order. Enter data for 
each item following the field title. To discontinue data 
entry, press RETURN after the first field title for an item appears. 


Enter Ref # 


1238911 
Enter Customer 


Enter Qty 


Enter Dollars 


г SOBORI.. 
Enter A-P 


$2 
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COMMAND 2. 
Delete items from master database file 


This command begins by asking for the item number to be deleted. The item 

is then displayed on the screen and you are asked if you wish to delete the 
item. А "Y" to the question will delete the item and a "N" will prompt you 
for another item number. Each time an item is deleted you are asked if 

there are any more deletions. A "Y" will again prompt you for an item num- 
ber where as a "N" will return to the menu. You can also return to the menu 
by entering a zero when asked for an item number. Before the program returns 
to the menu it automatically packs the database to remove all deleted items 
from the disc and this operation can be time consuming for large databases. 
Items can only be deleted from the Master database. 


MENU 


Add items to master database file 
Delete items from master database file 
Examine or modify an item in master database file 


List local or master database file 
Create local database file 
Archive local database file 


Transfer archived database to local file 
List directory of database files 
Delete an archived database file 


Sort loca! database file 
List local or master database file vith subtotals 


Stop 


ლიი OON MIA GIN 


nao 


Enter number desired: 2 
Enter Item No. io be deleted: 


25 


ITEM@ Ref Ф Customer Product Qty Dollars S.E. Я/Р 
25 85С452 ROCKWELL 4631 i 4295 BEDORD 711 

Is this the item you wish to delete (Y/N): Y 

Do you wish to delete another ¿tem? (Y/N)! 
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COMMAND 3 
Examine or modify an item in the MASTER database file. 


| 


This command begins by asking for the item number. This item is then dis- 
played on the screen and you are asked if this is the item you wish to mod- 
ify. If you respond with a "N" the prompt for an item number is repeated, 
or if you respond with a "Y" the program will begin prompting you for each 
field in the item, writting on the screen the field title, the current con- 
tent (OLD:) of the field and a request for the new (NEW:) content. The 
underline characters are printed to indicate the maximum number of charac- 
ters that you may enter. You may correct the field by typing in the correct 
contents followed by a return (CR) or you may leave contents alone by typing 
only a return (CR). After you have been prompted for all the fields in the 
item you are asked if you wish to modify another item. А "У" response will 
produce a prompt for another item number while a "N" response will return 
you to the menu. Only the Master database may be modified with this command. 


MENU 


Add items to master database file 
Delete itens from master database file 
Examine or modify an item in master database file 


List local or master database file 
Create local database file 

Archive local database file 

Transfer archived database to local file 
List directory of database files 

Delete an archived database file 

Sort local database file 


List local or Master database file vith subtotals 
Stop 


Enter number desired: 3 
Enter Item No. to be examined: 15 
f 
ITEM@ Ref 8 Customer Product Qty Dollars S.E. Я/Р 
15 858954 HAC S 40141 i 12059 ETTER 713 


Do you wish to modify this item (Y/N); Y 
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To leave a data item as it is, press RETURN. 
To modify, enter correct data. 


Ref & 
OLD: 858954 
NEW 


Product 
OLD: 40141 
NEW 


Do you want to examine another item (Y/N): N 
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COMMAND 4 
List local or master database file 


Two inputs are necessary for this command. The first input is the name of 
a local, or master database to be listed. To list a local database simply 
enter the name of the local database (presuming it exists). Master data- 
base can be selected even more simply by entering only a CR. The next in- 
put request is for a title that will be centered at the top of each new 
page, The maximum length of the title is printed and underline characters 
are also included to show the user the maximum length. Page numbers, and 
the current date and time (taken from the File Manager) are also printed 

on each page. The device the listings are sent to is determined by the 
answers to the questions asked when the program began. New pages are gen- 
erated by issuing form feeds (ASCII character control L), and the program 
assumes that the printer can interpret these form feeds properly. When the 
listings are directed to the screen a "page full" condition signified by 

a blinking "F" in the upper right hand corner of the screen, will occur 
when the screen is filled. To continue with the listings the "PAGE" key 
must be pressed to erase the screen. User definable key #1 can be used to 
automatically produce a hard copy if a 4631 is available. This mode is 
activated by pressing user definable key #1 as the listing is placed on the 
screen. You may defeat this mode and return to the normal pause after each 
page full condition by pressing user definable key #11 while the listings are 
being written on the screen. When using the user definable keys there are 
two times when you should not press them. The first is when a blinking 

"2" is on the screen, indicating the 4051 is expecting a keyboard entry, 
and when a blinking "F" is seen in the upper left hand corner of the screen 
(page full condition). 
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MENU 


Add items to master database file 
Delete items from master database file 
Examine or modify an item in master database file 


List loca! or master database file 
Create local database file 
Archive local database file 


Transfer archived database to loca! file 
List directory of database files 
Delete an archived database file 


Sort local database file 
са local or master database file with subtotals 
ор 


Enter number desired: 4 

Enter the name of the LOCAL database you want listed, or 
enter oniy a CR if you want the MASTER database listed. 
Database name? __ ---- 


а 68 character title to be printed with listing. 
565168. DATABASE- LISI. IILE. <IHIS_1IS_8_CENIEBED_IIILER 


MASTER DATABASE LIST TITLE sun IS A CENTERED TITLE) 
08-JAN-79 89:31 


Customer Product Qty Dollars 
3995 


= 
-4 
т 
= 
зе 


Зое 74 o Je Jo Р 
daño ზით pu ტორ Dub გოთ გოთ рь ` 
МР 040404 04 64 о 


FLUOR 

RERO FORD 
RERO FORD 
CTY “ORANGE 
SILICON SYS 
WYLIE LABS 


М2 0) N © CRAGIN = 6250 00 У ძი (А GIN >> 
NNN 
pa pe o 
Dun 


ge у= გოთ b. geo рых b. фаб b. Dale 


ROCKHELL 
AIR FORCE 
640615 AIR FORCE RE4012 
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COMMAND 5 


Create Local Database File 


À Local database can be created from a source database (Master or Local data- 
base) via this command, The user specifies what characteristics the item 

in the source database must have in order to be included in the new local 
database. This is accomplished by a user inputted logical expression, which 
is applied to each item in the source database and if it is true the item 

is written in the new database. The remainder of this section assumes 

that the user understands how to write a BASIC logical expression.  Infor- 
mation on how to write these expressions can be found in the 4051 BASIC 
Programmers Reference Manual, but the example near the end of the section 
may be sufficient to learn some simple expressions. 


The first question asked is the database to be used as the source. If only 
a carriage return is entered from the keyboard the Master database will be 
selected, or the user may enter the name of a local database to be used as 
the source. 


The next step is to choose fields in your database and assign them variable 
names so that they can be used in the logical expression. Numeric fields 
are first listed on the screen and user is prompted to enter the field num- 
ber for the field you wish assigned to the variable name specified in the 
prompt. From zero to four numeric variable names can be assigned at one 
time, and to exit this portion of the command simply enter only a carriage 
return when asked for the field number. Immediately after the above por- 
tions is finished all the fields in your database will be listed. Out of 
this list from zero to four fields may be assigned to alphanumeric variable 
names in the same manner as the numeric variables were above. Next all the 
variable assignments are listed on the screen and the user is asked to 
enter a logical expression. The expression can contain only the variable 
names that have been assigned fields plus an numeric or alphanumeric con- 
stants (literals contained in quotes). Below are some examples of logical 
expressions (Fl,A$, and BS are assumed to be assigned to fields). 


(F1«20 AND F1>100) AND A$="SCHEN" OR (B$<"L" AND B$»"C" 
F1>0 AND F2«1000 AND A$ = B$ OR F3>F4 


The expression entered can not be greater than 65 characters long, and must 
conform to the BASIC syntax rules for logical expressions. The final ques- 
tion asked is what name you wish to call the new local database. The pro- 
gram will then create the new local file, and examine each item in the 
source database. If the logical expression is true for any item it is 
written in the new database. When the menu returns to the screen the new 
database will contain all items in the source database that caused the 
logical expression to be true. 
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MENU 


Add itens to master database file 
Delete items from master database file 
Examine or modify an item in master database file 


GN = 
е е е 


List local or master database file 
Create local database file 
Archive local database file 


Transfer archived database to local file 
List directory of database files 
Delete an archived database file 


Sort loca! database file 
t local or master database file with subtotals 
op 


— > 400034 бла 


no 


Enter number desired: 5 


Enter the name of the LOCAL database (i.e. Source database) from which 
you intend to create the new local database; or enter only a CR if you 
wish to use the MASTER database. ___ __ 


The next step is to assign database fields to variables which will be 
used in the following logical expression. This is done іп two parts; 
and each can be terminated by responding with a CR to a prompt. 

Any numeric field maybe assigned to one of the variables F1,F2,F3, ог 
F4, and similarly any field may be assigned to one of the character 
variables ñ$,B$,C$, or D$. 


Numeric variables will be assigned first. Choose from list below. 


1) ITEMS 

5) Qty 

6) Dollars 
> A/P 


Enter the field number you wish to assign to variable Fi! 
Enter the field number you wish to assign to variable F2; 5 
Enter the field number you wish to assign to variable F3: 


/ 
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Alphanumeric variables will now be assigned. 
ITEMA 
Ref ё 
Customer 
Product 


ty 
Dollars 


Я/Р 


Enter the field number you wish to assign to variable AS: 
Enter the field number you wish to assign to variable B$; 


At this point you must enter a logical expression. When this 
expression is true for an item in the MASTER database it will be 
included in the LOCAL database being created. The only constraints on 
the expression are: 1) only data variables assigned to fields above 
can be used, 2) the expression must not have syntax errors, and 

3) it can be no longer than 65 characters. 

Fields are listed below. 


Fi = Dollars 
F2 = Qty 


ñ$ = S.E. 
Please enter the logical expression below, 

IF @$="BEDORD"_Q@ND_CE12E22218088_.._._-.---------- -- - nn nn nnn 0 
Enter the name (1 to 1@ characters) of the LOCAL database: PRODUCT. -- 
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COMMAND 6 


Archive Local Database File 


Local files are deleted from the disc when command 12 is executed. A local 
file can be protected from deletion by archiving the database. This command 
needs only two inputs, the first is the name of the local file to be ar- 
chived and the second input is the name you wish to call the archive data- 
base file. If the second name is currently in use, you are given the choice 
of choosing another name or overwriting the existing file and subsequently 
destroying the previous information in the file. After the archived file 
has been created the program returns to the menu. 


MENU 


Add items to master database file 
Delete items from master database file 
Examine or Modify an item in master database file 


List local or master database file 
Create local database file 
Archive loca! database file 


Transfer archived database to local file 
List directory of database files 
Delete an archived database file 


Sort loca! database file 


3.2 local or Master database file with subtotals 
top 


Enter number desired: 6 
Enter the LOCAL database name you wish to archive: PRODUCT , 
Enter the file name for the ARCHIVE copy, or if it is the same as 


the local file name enter only a carriage return. 
Enter name: ВЕра80........ 


, 
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COMMAND 7 
Transfer Archived Database to Local File 
This is the compliment of Command 6. Again two inputs are needed. The name 
of the archived file you wish to transfer and the name you wish to give to 


the local database. You have the option of overwriting an existing local 
database if you wish. After the transfer is complete the menu is displayed. 


MENU 


Add items to master database file 
Delete items from master database file 


Examine or modify an item in master database file 


List local or master database file 
Create local database file 
archive local database file 


Transfer archived database to local file 
List directory of database files 
Delete an archived database file 


Sort local database file 
>. local or master database file with subtotals 
op 


Enter number desired: ? 


Enter the name of the ARCHIVED database to become a local file. 
Enter name: BEDORD____ 


Enter the LOCAL file name, or only a carriage return if you want 
the local file name the same as the archived file. 
Enter паме: SI8IUS.... 


, 
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Command 8 


List Directory of Database Files 


It is conceivable that one can become confused and forget what names 

he has assigned to the various databases. This command lists all 
database names for the database family selected at the very beginning 
of the program. No additional input is necessary and the page key must 
be pressed to return to the menu. 


MENU 


Add items to master database file 
Delete itens from master database file . 
Examine or modify an item in master database file 


List local or master database file 
Create local database file 
Archive loca! database file 


Transfer archived database to local file 
List directory of database files 
Delete an archived database file 


Sort local database file | 
List local or master database file with subtotals 


Stop 


Enter number desired: 8 


Directory of database files 
08-JàN-?9 89:46:14 


Master database 
DATABASE/ACTUALS/MASTER/DATA 

Local databases 
DATABASE/ACTUALS/LOCAL/DATA/PRODUCT 


DATABASE/ACTUALS/LOCAL/DATA/STATUS 
DATABASE“ACTUALS/LOCAL/DATA-REPORT 


Archive databases 
DATABASE “ACTUALS/ARCHIVE/DATA/SORT 
DATABASE/ACTUALS/ARCHIVE/DATA/BEDORD 
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COMMAND 9 


Delete An Archived Database File 


This command is the only means to purge archived database files. 
The only question asked is the name of the archived file you wish 
to destroy. Local file are automatically purged after command 12 
is executed and the master database can never be purged with this 
program. The menu is displayed on the screen after the archived 
file has been purged. 


MENU 


Add items to master database file 
Delete items from Master database file 
Examine or Modify an item in master database file 


List local or master database file 
Create local database file 
Archive loca! database file 


Transfer archived database to local file 
List directory of database files 
Delete an archived database file 


Sort local database file 
| e local or master database file vith subtotals 
е ор 


Enter number desired: 9 


Enter the name of the ARCHIVED file you want to delete from the disc. 
Enter name: BEDOBD.... 
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COMMAND 10 


| 
Sort Local Database File 


Any local database can be sorted in place with this command. The user 
enters the name of the local file he wishes to sort and then the pro- 
gram displays a list of all fields in the database. The user can iden- 
tify up to 4 fields to be used as keys in the sort. The user is asked 
to give the field number for the primary key and whether the key is 
sorted in ascending (A) or descending (D) order. In the same manner 
the user is asked to give field numbers and sorting order for the secon- 
dary, tertiary, and quartiary keys. If you don't need four keys, enter 
those keys you do want and initiate the actual sort by giving only a 
carriage reutrn when asked for a field number. The time it takes to 
sort the database depends mostly on the length and number of items in 
the database being sorted. A database with only 10 items may take less 
than 30 seconds while a database with 300 items may take as much as 30 
minutes. After the sort is finished the program returns to the menu. 


MENU 


Add items to master database file 
Delete items from master database file 
Examine or modify an item in master database file 


List local or master database file 
Create local database file 
Archive local database file 


Transfer archived database to local file 
List directory of database files 
Delete an archived database file 


Won nun Ane 


Sort local database file 
s local or master database file with subtotals 
ор 


u. әсе pee 
РӘ ~ со 
ee 


# 


Enter number desired: 10 


Enter the name of the LOCAL database you wish to t. 
Database name? REPDRI.... us ща 
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You may choose up to four of the fields below to act as keys which 
will control the resulting order of items in the sorted database. 
The $e a on ак keys is terminated by responding to a prompt with a CR. 


2) Ref 
Customer 
Product 


y 
Dollars 
8) AP 
Enter the field number to used as the primary key: 3 
Is the field to be sorted ascending (A) or descending 
(D> order? ñ 
Enter the field number to used as the secondary key: 7 
Is the field to be sorted ascending (A) or descending 
(D> order? A 
Enter the field number to used as the tertiary key: 6 
Is the field to be sorted ascending (ñ) or descending 
(D> order? D 


Enter the field number to used as the quanternary key: 
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COMMAND 11 


List Local or Master Database File With Subtotals 


There are instances when one wishes to total a particular numeric field 
for all items where the content of a controlling field are equal. Suppose 
we have a database of accounts receivable that contain the account number 
and unit cost charged to the account. Now we sort the database by account 
number then list the database with subtotals for the dollars field and 

the control field being account number. This command would list each item 
in the database similar to the way command 4 does except when the con- 
trolling field changes (account number) a subtotal of the numeric field 
(dollars) is inserted in the list. When all items have been listed a 
grand total is also printed. The overall result of this example is a 
listing of the database with subtotals of costs charged to each account 
number and a grand total of all costs. Local and master databases may 

be listed with this command. When asked the user enters the name of the 
local database to be listed or only a carriage return if he wants the 
master database listed. The program then lists all numeric fields in 

the database and the user selects the one he wishes to be totaled. The 
program then lists all fields and the user selects a field that will be 
the control field. The next input is the title that will be printed 

at the top of each page. The listings look identical to the ones gen- 
erated by command 4 except for the inclusion of subtotals and a grand 
total. The user definable keys #1 and #11 also operate as described 

under command 4. 
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MENU 


Add items to master database file 
Delete items from master database file 
Examine or modify an item in master database file 


List local or master database file 
Create local database file 
Archive local database file 


Transfer archived database to local file 
List directory of database files 
Delete an archived database file 


Sort loca! database file 
5. local or master database file with subtotals 
ор 


Enter number desired: 11 


Enter the name of the LOCAL database you want listed, or 
enter only a CR if you want the MASTER database listed. 
Database name? SORI______ 


Choose a numeric field to be totaled. 


1) [ТЕМФ 
5) Qty 
6) Dollars 
8) RP 


Field number? 6 


Choose a field belou to contro! subtotals. 


ITEMS 
Ref $ 
Customer 
Product 
ot 


y 
Dollars 


AvP 


0 Ма A SGN 
МАМУ чи М л М М М 


Field number? 8 
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ACTUALS BILLED SUBTOTALED BY ACCOUNTING PERIOD PAGE 1 
08-JAN-79 09:55 


Product Qty Dollars 
4050405 1 225 


Ref # 
85H0?4 
85H85? 


85H078 


85J891 
8 


854293 


850215 


Customer. 
NAVY 


AIR FORCE 
AIR FORCE 
AIR FORCE 


HAC 

HAC 

NAVY 
ROCKWELL 
ROCKWELL 


ROCKWELL 
ROCKWELL 


HAC 


1 
1 
1 
1 
1 
1 
1 
1 
| 
| 
1 
q 


4051 
Subtotal 


4 1 
Subtotal 


1 


45460 


3995 BEDORD 


ACTUALS BILLED SUBTOTALED BY ACCOUNTING PERIOD 
@8-JAN-?9 09:55 


86F223 


Customer 
CANNON 
CANNON 
MISSION RES 
MISSION RES 
MISSION RES 


Product Qty Dollars 
4812 1 6350 


1 
1 
1 
1 
1 
і 
1 
1 
Subtotal 


Grand Total 


YA Y AS აკ <3 Y O 
dul pu bet pet рр pao pue pet ` 
043604041 04 0004604010470 


200 WATSON 
128879 


568241 
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COMMAND 12 


Stop 


This command terminates the program. Before all local files are deleted 
by this command the program asks if the user has archived all important 
local databases. If he responds with a "Y" then all local files are purged 
and execution stops. If the response is "N" then the program returns 

to the menu without purging any local databases. 


MENU 


Add items to master database file 
Delete itens from master database file 
Examine or modify an item in master database file 


List local or master database file 
Create local database file 
Archive local database file 


Transfer archived database to local file 
List directory of database files 
Delete an archived database file 


18. Sort local database file 


11. List local or master database file with subtotals 
12. Stop 


Enter number desired: 12 


231 WARNING - LOCAL FILES WILL BE DELETED FROM DISC. 
341 Have you archived those files you wish saved (Y/N)? Y 


* 
pt Execution complete, 


/ 


Press AUTO LOAD key to select other programs. 
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Disc File DATABASE/*/INIT/* variable descriptions 


INIT FILE Generated with READ and WRITE 
Record 1: Tl, T2, T9, T8, T4, 51 | 
Record 2: C, T$ 
Where: 
T1 Number of fields per item. 
T2 Number of items in the data base. 
T9 Total of the field widths. 
T8 Number of spaces automatically inserted between fields. 
T4 The media width entered in FILEINIT (Section III) 
51 The total of field widths and the spaces inserted between the 
fields. 
C An array that holds field characteristics (ITEM # is considered 
a field). The array is dimensioned C (T1,2). C(J,1) contains 
the width of the Jth field and C(J,2) holds the field type. "1" 
indicates the field is numeric and "2" indicates an alpha numeric 
field. 
T$ A string variable containing all field titles with the appro- 
priate number (T8) of spaces inserted between titles. 
EXAMPLE: 
Tl = á; T2 = 0; T9 = 24; ТВ - 2; T4 = 31; 51 = 30 
C (4,2) = 5 1 width of 5 numeric data 
8 2 width of 8 alphanumeric data 
6 1 width of 6 numeric data 
5 2 width of 5 numeric data 
123456789 123456789 123456789 123456739 
T$ = ITEM?  ТІТІЕЇ TITLE2 TITLE 
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Disc File DATABASE/*/DATA/* Variable Descriptions 


Accessed with READ and WRITE | 
This file is a collection of Т2 character strings, each T4 characters 
long. 


For the software to operate properly, the programs and overlays must 
reside on the first 13 files of a tape and must occur in the follow- 
ing order: 


CONTENT 


"Auto Load" program 
FILEINIT 
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REFERENCES 


This software was derived from a program documented in section 
16, pages 4-212 to 4-219 of the PLOT50 Business Planning and 
Analysis Manual. Substantial changes have been made to store 
databases on a 4907. The instructions in the above manual are 
no longer applicable. 


The sorting method used in command was taken from the following 
source: 


Knuth, Sorting & Searching - The Art of 


Computer Programming. Addison - Wesley 
Publishing Company, 1975 рр114-123. 
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APPENDIX A 


RECORDKEEP II is a general purpose program that can be 
applied to many applications, but in order to fit a parti- 
cular application well it may need more specific tasks to 
be added. Because of the manner in which RECORDKEEP II із 
designed, it is easy to add more tasks and there are few 
practical limits to the number that can be added. This 
Appendix will describe the procedure for adding new tasks 


and the programming conventions that must be followed. 


RECORDKEEP II is composed of parts, a main program and many 
program segments called overlays. Overlaying is a method 
where many program segments share one area in memory. This 
is possible because the main program controls which segment 
is in memory, depending on the specific task it must perform 
The secret to understanding how the program can select 
specific overlays is to understand some common properties all 
overlays have. Overlays begin in the same manner. The line 
numbers begin at 4000 and the first line is always a REMARK 
statement. This statement is used as a target line when the 
overlays are appended into memory. The range of line numbers 
are also limited. They must begin at 4000 and never exceed 
8999. This insures that the overlays fit within the main 
program. The other properties overlays have in common are 
their usage of variables. Variables fall into two groups, 
local variables and global variables. Global variables are 
used to communicate between the overiays and main program, 


while the local variables are reserved for the exclusive use 


of the overlay in memory. The file names for all overlays 


are similar too. Overlay file names are found in the same 


libraries (@DBMPROG/RECORDKEEP/) and begin with the letters 


JG/3A/10 
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"ду", Individual overlays are differentiated by a numeric 
suffix on the end of the file name and the main program 
appends in any given overlay by concantinating the appro- 
priate suffix to the character string "@DBMPROG/RECORDKEEP/OV" 
The overlay stored on disc under this file identifier is 
then appended into memory. Suffixes may also end ina 
letter (e.g. OV3A, OV7A), but these overlays are called 
(meaning selected to be appended into memory next) from 


other overlays. 


The user drives RECORDKEEP II from a Menu by entering in a 
Menu number that corresponds to a particular task. Once the 
user selects a task the program must append into memory the 
overlay that contains the task. This linkage between a menu 
selection, and the right overlay is done with a "table 
look-up". The global variable A is a table of overlay 
suffixes. When the user selects a menu number the program 
"looks-up" the suffix stored in the element of A equal to the 
menu number. If the user selected menu item 3 then the 
overlay that contains that task has a suffix equal to A(3). 
The main program then appends in the appropriate overlay and 
transfers control to the overlay. The overlay performs the 
task the user selected and transfers control back to the main 
program by jumping to line 9000. Once the overlay relin- 
quishes control back to the main program all disc files 


should be closed. 

There are few practical limits to how many additional tasks 
can be added. The two constraints are available disc space to 
hold programs and overlays and the amount of available memory 


in the 405X running the program. Available disc space is 
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ample for a great number of additional overlays but the 405X 
memory constraints can pose a problem at times. RECORDKEEP 
11 is designed to run on a machine with a minimum 16K of 
memory. For people with larger memory in their 405X each 
existing overlay in RECORDKEEP II can be enlarged with new 
tasks as long as the overlays don't violate the rules dis- 
cussed above and they fit in memory. For tasks that cannot 
fit into memory the task can be split into many overlays, 
with the first overlay calling each subsequent overlay. An 
example of this are overlays OV3 and OV3A. Notice that 
overlays that are called by other overlays end in a letter. 


This helps to clarify which overlays are related. 


When adding a new task the first decision is whether to 
include the task in an existing overlay or to write a new 
overlay. This Appendix will cover writing a new overlay, 
modifying a existing overlay is a blend of normal program 
editing and techniques used to write a new overlay. The best 
way to learn how to write a compatible overlay is to examine 
the existing overlays in RECORDKEEP II. Overlays can be 
written in a modular manner because certain utility subrou- 
tines needed to open files and to verify user inputs can be 
borrowed from other overlays and used as building blocks for 
the new overlay. These utilities are covered in detail in 
Appendix B. To begin, consider a hypothetical task to be 
added to RECORDKEEP II. This task will calculate total cost 
of units in an inventory by reading the number of units on 
hand and the unit price from the MASTER database, multiply 
together these two numbers and store the result (total cost) 
in an, existing numeric field in the MASTER database. It is 
assumed that a RECORDKEEP II MASTER database exists, the 


number of units begins in column 12 and is 5 characters long, 
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unit price begins in column 23 and is 6 characters long and 
the total cost field begins in column 60 and is 10 characters 
long. This defines the task, and it can be implemented in 3 
steps. The first step is to write the overlay, which must 
conform to the programming conventions mentioned in this 
document. The second step is to modify the main progam and 
overlay OVO. These modifications will allow the new overlay 
to be linked to an entry in the menu of the main program, 
Giving the user control over when it will be executed. The 
last step requires changes to the "AUTO LOAD" Program. These 
changes will allow the backup copy of the overlay that is 
saved on tape to be automatically copied to disc from the 
menu of the "AUTO LOAD" Program. As changes are made to each 
program be sure to save the program on the program tape. The 
order that the various programs reside on tape is very import- 
ant so great care should be taken to preserve this order when 
saving programs. Once all three steps have been performed the 
new version of software can be updated on a program disc via 
menu selection 3 of the "AUTO LOAD" program. It would also be 
wise to write to protect the program tape, since it is the 


software backup in emergencies. 
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WRITING THE OVERLAY 


All overlays begin at line number 4000 and never exceed 
line number 8999. Line 4000 is always a remark statement, 
because this line will be the target line for later appends. 
Look at the source listing for OV5, it will be a good model. 
0V5 begins with the remark statement on Line 4000 and the 
next few lines document what overlay it is. Following these 
remark statements are a series of DELETE statements in lines 
4060 through 4100. These should be included in all overlays 
except overlays called by other overlays because they set 
the local variables to a known state. Variables not included 
in these DELETE statements are considered Global variables 
which pass information between overlays. Global variables 
should be changed with great care since they may affect 
other overlays. Local variables do not affect other over- 
lays, but the utility subroutines described in Appendix B 
use local variables so plan ahead to avoid any local variable 
conflicts with these utilities. OV5 actually contains three 
tasks, and the next six lines direct the program flow to the 
appropriate subroutine, depending on the menu number stored 
in A3 that the user selected. Below is an alternative way 


that saves 5 lines of code. 


GOSUB 1 + (A3=8) + (A3=9)*2 OF 4180, 4510, 4490 


In OVS each task is treated as a subroutine and when it returns 


from a task subroutine, line 4170 returns control to the main 
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program by jumping to line 9000. If only one task is in 


the new overlay then the subroutine selection can be left 


out. When transfering control back to the main program it is 


assumed that all files have been closed. This can be handled 


by the task subroutine or done just before control is trans- 


fered. By following the suggestions above the first part of 


the example overlay would look like the following. 


DELETE 
DELETE 
DELETE 
DELETE 
DELETE 
GOSUB 
CLOSE 
GO TO 
REM 


TARGET LINE FOR OVERLAY APPEND 


OVERLAY 


H,HO,H1,H2,H3,H4,H5,H6,H7,H8,H9 

L,10,I1,12,I3,I4,I5,16,I7,I8,I9 

J,J0,31,32,33,34,35,J6,37,38,39 

K,K0,K1,K2,K3,K4,K5,K6,K7,KB,K9 
I$,2$,K$,L$,M$,N$,0$,P$,Q$,R$,U$,V$,W$ 
4150 


9000 
TASK TO COMPUTE UNIT TYPE COST 


In the example above the task was converted to a subroutine. 


This is not the most efficient way to write the overlay, but it 
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has the advantages of being more modular. This will make 
it easier to add tasks in the future. To this point the new 
overlay is very general and would apply to any task. The 
task specific portion of the overlay will be written next. 


The flow chart below outlines what has to be done: 


CONSTRUCT FILE EXTRACT NO. PLACE TOTAL 
IDENTIFIERS UNITS COST IN ITEM 


OPEN THE EXTRACT UNIT WRITE ITEM 
DATABASE PRICE TO DATABASE 


ў 


FOR ALL ITEMS MULTIPLY PRICE CONTINUE 


ПР IN DATABASE AND QUANTITY FOR/NEXT LODP 


У Y 


READ ITEM ROUND THEN RETURN 
FROM DATABASE FORMAT TOTAL COST 


ეგე გე სა — გვა გაა — — — გ — «ак ა т nn 


The following description explains the new overlay flow 
charted above. The actual overlay can be found on the 


following pages. 


The file identifiers can be constructed using a utility sub 
routine described in Appendix (B). This utility receives 
the database name in L$ and returns the file identifiers for 
the INIT file in E$ and the file identifier for the DATA 
file in F$. When L$ contains a null string then the file 
identifier for the MASTER database are returned. E$ and F$ 
are then used by another utility subroutine to open up the 
databases. Once the databases are open the program proceeds 
to read in an item, perform the necessary computations, 
write the item back with total cost inserted. When all items 


are processed the files are closed and control is passed back 
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4100 DELETE I$,J$,K$,L$,MS$,NS,0$,P$,Q$,R$,US, VS, WS 
411@ GOSUB 4158 

4128 REM CLOSE ALL FILES AND RETURN TO MAIN PROGRAM 
4138 CLOSE 

4149 GO TO 9000 

4158 REM TASK TO COMPUTE TOTAL COST 

4168 L$»"" 

4170 REM CONSTRUCT FILE IDENTIFIERS 


4210 DIM U$(T4) 
4220 REM FOR ALL ITEMS IN DATABASE 
4238 FOR I=1 TO T2 
4240 REM RERD ITEM FROM DATABASE 
4258 წინ 42,1:U$ |. 
4260 REM EXTRACT NUMBER OF UNITS 
4279 R$*SEG(US, 12,5) 
4280 Hi=VAL(RS) | ` 
4290 REM EXTRACT UNIT PRICE 
4300 RS=SEG(US, 23,6) 
4310 H2=VAL(RS) 
4320 REM MULTIPLY PRICE AND QUANITY 
4330 H3=H1*H2 | 
4348 REM ROUND НЗ TO HUNDREDTHS THEN ADD .001 
4358 REM FOR FORMATTING PURPOSES 
4360 GOSUB 4610 
4370 REM CONVERT H3 TO A STRING AND RIGHT JUSTIFY 
4388 REM IF НЗ >= TO 1077 THEN IT WONT FIT,GIVE ERROR 
4390 IF HX18"7 THEN 4420 
4408 PRINT "CALCULATED COST EXCEEDED ITEM FIELD WIDTH" 
4410 STOP | 
4429 DELETE R$ 
4430 DIM R$C12),0$(10) 
4448 IF H3O1.0€-3 THEN 4470 
4450 Q$-" 8.00" 
4468 GO TO 4538 
4478 R$=STR(H3) 
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4480 R$=REP("",1,1) 
4490 QS=SEG(RS, 1, LEN(RS)-1) 
4500 IF LEN(Q$)=10 THEN 4530 
4510 R$=SEG(XS$, 1, 18-LEN(QS) ) 
4520 Q$-R$50$ 
4530 REM PLACE TOTAL IN ITEM 
4549 US=REP(QS, 68, 10) 
4550 REM WRITE ITEM TO DATABASE 
4568 WRITE #2,1:US 
4570 REM CONTINUE FOR/NEXT LOOP 
4588 NEXT I 
4590 REM RETURN 
4600 RETURN 
4610 REM ROUND НЗ TO CENTS THEN ADD .001 
4620 H4=ABS(H3)+1.BE-12 
4630 H3*CINT(H4K10040. 52/1001 . 0E -3) X (НЗ<В)ж-1+(НЗ= 20) 1) 
4640 RETURN 
4650 REM жж OPEN DATABASE FILES 
4668 CLOSE 
4578 EB=0 
4680 GOSUB 4838 
4690 CALL "FILE",R9,E$,K$ 
4700 IF LEN(K$)?0 THEN 4758 
4710 ЕВ=1 
4720 PRINT-"**V*x File was not found on disc. 4x" 
4738 -PRINT USING "4(110(""&"")), "Uh SNE: 
4742 GO TO 4820 
. 4758 OPEN E$;1,"F",K$ 
4760 OPEN F$;2,"F",K$ ` 
4778 READ #1:T1,T2,T9,T8,T4,S1 
4789 DELETE C,T$ ` 
4798 DIM C(T1,2),T$(T4) 
4802 READ #1:C,T$ 
4810 S$=SEG(XS, 1, T8) 
4828 RETURN 
4839 REM SUBROUTINE TO CONSTRUCT FILE IDENTIFIERS (F.I.). 
4840 REM L$ CONTAINS DATABASE NAME. ES AND F$ CONTAIN Р.І. 
4850 K$*"/LOCRL/INIT/" 
4850 K$=REP(LS, LEN(K$)+1,0) 
4870 IF L$<>"" THEN 4900 
4880 K$=REP( "MASTER", 2,5) 
4898 K$=SEG(KS, 1, LEN(KS)-1) 
4900 ES=GS8KS 
4910 K$*"/LOCRL/DATR/" 
4920 K$=REP(LS, LEN(KS)+1, 0) 
4930 IF L$<>"" THEN 4960 
4940 KS=REP("MASTER", 2,5) 
4950 K$=SEG(KS, 1, LEN(K$) 71) 
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4960 F$-G$8K$ 
4978 RETURN 


NOTE: The following characters appear differently on a 4050 
Series Graphic System. 


"ы" is a CONTROL H 

52 & CONTROL K 

"ს" a CONTROL-SHIFT RUBOUT 

"у" a Line Feed 

ues an up arrou (exponentiation) 
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to the main program. Processing is begun by reading each item 
into a character string. The composition of the item dictates 
where the number of units, unit price and total field are 
found. For the example some arbitrary beginning positions and 
field lengths were assumed and they are summarized in the table 


below: 


Beginning 
Position 


Number of units: 12 
Unit price 23 


Total cost 60 


The number of units are extracted from U$ and then converted to 
a number held in H1. In a similar fashion the unit price is 
stored in H2. Multiplying H1 times H2 to yield the total cost 
(H3) is not difficult, but before H3 is placed back into U$ 
several formating and error checks are performed. H5 is calcu- 
lated and rounded to the nearest cent, and a small constant 
was added to make sure that at least two decimal places 
will always be present. Next H5 is checked to be sure that the 
number can fit in the space alloted for the total cost field. 
H3 is converted to a string (R$) and then the first and last 
characters are removed. The first character is always a blank, 
due to the STR function. The last character is not wanted 
because it results from adding .001 to H3. The resulting 
string stored in Q$. The number Q$ contains will have two 


; 
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places to the right of the decimal place. All that is left to 
be done is to be sure the length of Q$ is equal to 10, if not, 
Q$ is padded with blanks (right justified) so it is. Q$ can 
now be placed in the total field of the item and the item 
written back into the database. This covers the basics of how 
to write an overlay and an example of how one would look. The 
majority of the work has been done, but changes have to be 
made to the main program and DVO to link the new overlay to the 
program as a whole. RECORDKEEP II can automatically copy to 
disc the backup copies of the software. To include the new 
overlays in this automatic copy feature requires changes to be 


made to the "AUTO LOAD" program. 
LINKING NEW OVERLAYS 


The menu in the main program must be expanded to include the 
new task, and the error trap that filters incorrect menu 
selections must reflect the new menu number. The main program 
must never be renumbered. Line numbers 300 through 430 are 
reserved for the print statements that produce the menu. It is 
permissable to change the increment between line numbers, this 
would permit a maximum of 149 tasks in the menu, and still have 
the menu between lines 290 and 430. Overlay OVO also requires 
a change. OVO is where the global variable A is initialized. 
Since A is a table of suffixes it must be updated to reflect 
the suffix of the overlay that contains the new task. For the 
example cited above the required changes are outlined below. 
The first change is to include a description of the new task in 


the main menu. Since line 420 contains the last menu item, 
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line 421 is where the new print statement is added. The last 
menu number is 12 so the new task will have a menu number of 


13. 


421 PRINT "2115. CALCULATE UNIT COST * # UNITS" 


Line 450 is the error trap. Valid menu numbers are now 1 
through 13 so it must be changed to allow the new menu number 


to pass. 


450 IF A3<=0 OR A3>13 THEN 290 


These are the only changes that need to be made to the main 
program, but one change remains to be made to overlay OVO. To 
complete the linkage global variable A must be updated to 
contain the appropriate overlay suffix. To generalize the 
discussion, call the menu number of the new task "I". Line 
4690 in overlay OVO is a data statement containing the suffixes 
to be stored in "A". Edit this data statement so that for each 
new task added to the menu, the Ith element of A [A(I)] will be 
equal to the overlay suffix that contains the task. If the 
task was included in an existing overlay then A(I) would equal 
the suffix of this overlay, but in the example cited above a 
new overlay was written and its suffix was 8. Therefore, the 
13th number in the data statement should be set to 8 as shown 


below, 


4690 DATA 1,1,2,6,3,%,4,5,5,7,6,5,8,0,0,0,0,0,0,0 
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Now all the necessary changes have been made so that when the 
user selects menu number 13, overlay OV8 will be appended into 
memory. The remaining step is to change the "AUTO LOAD" 
program to load any new overlays onto disc with the other 


system programs. 


LOADING NEW OVERLAYS 


The "AUTO LOAD" program has a menu of three items. The third 
item will transfer all the programs, this would include over- 
lays, from the program tape to the disc selected to hold the 
programs. Any new overlays will not be included in this 
transfer unless the program is changed to include them. There 
are three variables that control the transfer. A$ contains all 
the program names. Any new overlay must have its name added to 
A$. Variable A holds the beginning position for the file name, 
in the order they appear on the tape, and starting with program 
MAIN (file 3). Variable B holds the length of the file names 
and are in the same order as the values in A. The number of 
files transfered to the disc are controlled in a FOR/NEXT loop 
starting at line 30360. If the new tasks were added to exist- 
ing overlays then the "AUTO LOAD" program does not need to be 
changed and this step can be ignored. When a new task requires 
a new overlay then the following changes must be made to the 
"AUTO LOAD" program. Line 30220 is where A$ is defined. Add 
the new overlay file name (e.g. OV8) to A$. Next change the 
data statements in lines 30240 and 30250. If the overlay was 
ѕауеағоп file 14 on the program tape then it would be the 12th 
file after program FILEINIT. The 12th number in the data 
statement on line 30250 should be changed to the character 


26/3А/20 


000-6405-02 ТЕКТНОМІХ 4051 PROGRAM 


PAGE NO: 51 
ABSTRACT NO: 


RECORDKEEP II 51/07-6108/1 


length of the file name of the overlay in file 14. The 


interaction between the contents of A$, A, B and the order that 


the programs occur on the tape can be confusing. If necessary 


trace the program flow to verify how they work together. 
! 


Below is what A$, A and B should be changed to if a new overlay 


called OV8 is to added to the loading sequence. 


30220 A$-"MAIN OVO OV1 OV2 OV3 ома OVS OV6 077 OV7A OVE" 
30230 RESTORE 30240 

30240 DATA 1,10,14,18,22,27,31,35,39,43,6,48,0,0,0,0,0,0,0,0 
30250 DATA 4,3,3,3,4,3,3,3,3,4,3,3,0,0,0,0,0,0,0,0 


The remaining change is to alter the range of tape files 
transfered. This is done by changing the FOR/NEXT statement in 
line 30360. The number following the "TO" in this statement 
should be the file number of the last tape file that contains a 
program. In the context of the example, overlay OV8 would be 
saved in file 14 and, therefore, line 30360 would be changed 
to: 


30360 FOR 1=3 TO 14 


Be careful not to renumber the program when the changes are 
being made. The "AUTO LOAD" program should never be renum- 
bered. With that one precaution understood the edited "AUTU 
LOAD" program can be saved on file 1 of the program tape. 


, 
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All three steps have been described and with this documentation 
adding tasks to RECORDKEEPII should not be too difficult. Some 
of the basic building blocks can be found in the Appendix B, 
which can perform some of the common utility functions in new 
overlays. Once the overlays are written, only a few changes 
in other programs incorporate the new overlay into the collec- 


tion of interacting programs called RECORDKEEP ІІ. 
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APPENDIX B 


Writing a new overlay is not difficult, but there is no point 
in investing time to solve problems, which already have a 
solution. The following utility subroutines will help reduce 
the time it takes to write an overlay by offering solutions 
to some of the more common task overlays must do. Task such 
as opening data bases, verifying and formating keyboard entries 
and selecting 4054 character sizes. Several of these tasks 
require more than one utility subroutine, but they work to- 
gether, each depending on the other to do what it can't. 
Subroutines 1 through 3 are used to open data bases.  Sub- 
routine 1 verifies that the requested data base name is a valid 


name, while subroutine 2 takes the name and constructs file 


identifiers (FI) for the pair of data bases. The databases are 


actually opened by subroutine 3. Keyboard entries that enter 
the database are verified and padded with subroutines 4 and 5. 
Alphanumeric inputs are handled by subroutine 4 and numeric 
entries use subroutine 2. Subroutine 6 is actually two 
subroutines, one that selects the appropriate character size 


on a 4054, and another which resets the character size. 
Using these subroutines will hopefully reduce the time it 


takes to produce a working overlay. 
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SUBROUTINE 1 


Any time an operator keys in a database name it is best to 
verify that the name has the proper syntax. This will avoid 
unrecoverable errors later on. For the sake of simplicity 
RECORDKEEP II does not allow file extensions, but other than 
that exception this subroutine will check a file or library 
name in L$ for the proper syntax. The name must be 10 charac- 
ters or less, start with a letter, and contain only letters 
and numbers, imbedded blanks are not allowed. If the name 
passes the test variable EO will be equal to zero when control 
is returned to the calling program. When the syntax jis in- 
correct ЕО is set to 1 and a diagnostic error message is 


printed, before control is returned. 


VARIABLE DESCRIPTION 
Error flag E0=0 then no 
error. E0=1 then the name 
is illegal. 
FOR/NEXT index 


Scratch variable 


Contains the name to be 
tested 


Holds one character of L$ 
to be examined 


JG/A/28 


0006405.02 | _ТЕКТВОМХ 4051 PROGRAM 


PAGE МО: 55 
ABSTRACT NO: 


RECORDKEEP II 51/07-6108/1 


6330 REM CHECK THE PASSWORD OR FILE NAME IN LS 

6340 EB=B 

6350 IF LEN(L$)<11 THEN 6380 

6360 PRINT "XXX The name is longer than ten characters. Try again. $x" 
6370 GO TO 6528 

6380 PS=SEG(L$,1,1) 

6390 K6=ASC(PS) 

6400 IF K6>64 AND K6<91 OR K6>96 AND К6<123 THEN 6430 

6410 PRINT "жужжк The name does not start with a letter. Try again. $x" 
6420 GO TO 6528 

6438 FOR 18=1 ТО LEN(LS) 

6440 P$=SEG(L$, IO, 1) 

6458 K6=P0S(" ABCDEFGHI JKLMNOPQRSTUVWXYZ0123456789",P$, 1) 

6460 K6=K6+POS("abcdefghi ук Imopqrstuvuxyz" ,P$, 1) 

6478 IF К6< 8 THEN 6500 

6488 NEXT IO 

6490 GO TO 6530 

6500 PRINT “юж The name contains blanks or non alphanumeric "; 
6510 PRINT "characters. $k Try again. 4" 

6520 Ед“1 

6539 RETURN 


NOTE: The following characters appear differently on a 4050 
Series Graphic System. 
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SUBROUTINE 2 


Databases in RECORDKEEP II Т two classes. The INIT 
class contains the quantitatitive description of the second 
class of database. The second class, the DATA class, con- 
tains all the items in the database, this one is most vis- 
able to the user. The purpose of this subroutine is to 
take a name stored in L$ and construct the appropriate file 
identifiers (FI) for each class of database. If L$ is a 
null string, the file identifiers for the "MASTER" database 
are returned. When contol is passed back to the calling 
program E$ will contain the Р.І. for the INIT class database 
and F$ will have the Р.І. for the DATA class database. No 
error traps are used because the syntax of the name in L$ is 


assumed to be correct. 


VARIABLE TYPE DESCRIPTION 
E$ Global F.I. for the INIT 
class database 


F$ Global F.I. for the DATA 
class database 


G$ Global | The library struc- 
ture containing 
the database family 
name. This is used 
as a prefix when 
constructing the 


F.I.'s 
K$ Local Scratch variable 
L$ Local The database name 


to be incorporated 
into the F,l.'s 
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4830 REM SUBROUTINE TO CONSTRUCT FILE IDENTIFIERS (F.I.). 
4840 REM L$ CONTAINS DATABASE NAME. E$ AND F$ CONTAIN Р.І. 
4850 K$-"/LOCRL/INIT/" 

4860 K$=REP(L$,LEN(K$)+1,9) 

4870 IF L$<>"" THEN 4900 

4889 K$=REP("MASTER", 2,5) 

4890 K$=SEG(KS, 1, LEN(K$)-1) 

4900 ES=GS3x$ 

4910 K$*"/LOCRL/DRTR/" 

4920 KS*REP(LS,LEN(KS) 1, 0) 

4939 IF L$<>"" THEN 4960 

4940 K$=REP("MASTER", 2,5) 

4950 K$*SEG(K$, 1, LEN(K$) 71) 

4960 F$*G$8K$ 

4979 RETURN 


000-6405-02 


TEKTRONIX 4051 PROGRAM 


PAGE NO: 58 
ABSTRACT NO: 


RECORDKEEP II 51/07-6108/1 


SUBROUTINE 3 


This subroutine will open the files with F.I. E$ and F$. If 


these files can not be found on the database dise an error 


message is logged and the subroutine is exited with KO equal 


to 1, an error flag. Normally the files do exist, and the 
INIT, and DATA class databases are opened. The subroutine 
then reads all the quantitative information off the INIT 
class database and exits with KO equal to zero, indicating no 


errors. 


VARIABLE TYPE DESCRIPTION 
Global Unit number of the 
drive containing the 
database disc 
Global See page 32 
Local Error flag. КӨ-0 then 


no error. KO=1 the 
files not opened 


Global See page 32 
Global See page 
Global See page 
Global See page 
Global See Sale 
Global See page 


Global F.I. for the INIT 
class database 


Global F.I. for the DATA 
class database 
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VARIABLE TYPE DESCRIPTION 
Local Scratch variable 


Global String of blanks T8 
characters long 


Global See page 32 


Global String of blanks 135 
characters long 


4659 REM жж OPEN DATABASE FILES 
4669 CLOSE 

4670 Ед“9 

4688 GOSUB 4838 

4690 CALL "FILE" ‚R9,E$,K$ 

4700 IF LEN(KS)20 THEN 4758 

4720 PRINT “ок File was not found on disc.Yx*" 
4730 PRINT USING "4(110(" "SI, " "SNNT: 
4748 GO TO 4828 

4758 OPEN E$;1,"F",K$ 

4768 OPEN F$;2,"F",K$ 

4770 READ 41:T1,T2, T9, TB, T4, 51 

4780 DELETE С, Т5 

4790 DIM C(T1,2),T$(T4) 

4808 READ #1:C,T$ 

4810 S$-SEG(X$, 1, TB) 

4820 RETURN 


NOTE: “The following characters appear differently on а 4858 
Series Graphic System. 


"а" 
a " 
“ y" 
"ү" is a Line Feed 
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SUBROUTINE 4 


Before a string, destined for a alphanumeric field, can be 
placed in an item it must be left justified and padded with 
blanks so that the resulting string is as long as the field 
is wide. This subroutine does just that. 0$ enters the 
routine an arbitrary length, but less or equal to the field 
width I3. When control is returned to the calling program 0$ 
has a length equal to 13. 


VARIABLE DESCRIPTION 
I3 The width of field 


0$ The original string, 
which is padded to 
be I5 characters 
long, and left 
justified 


Global Scratch variable 


Global String of blanks 
155 characters 
long 


5310 REM PACK W/SPACES-ALPHANUMERIC 
5320 W$=SEG(XS, 1, IS-LEN(03)) 

5330 0$*0$845$ 

5340 RETURN 
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SUBROUTINE 5 
| 
RECORDKEEP II stores numbers in numeric fields as strings, 
and it assumes that the string contains a valid numeric 
constant. This subroutine examines a string D$ and determines 
if it contains a valid numeric constant. If it does 0% is 
returned as a string I5 characters long, with the constant 
right justified in the string. If not it prints a dianostic 
error message and sets KO equal to 1. This subroutine is 
more forgiving than the BASIC interpreter. Any blanks or 
commas in 0$ are deleted before O$ is returned. This subrou- 
tine will accept constants in an integer, real or scientific 


notation format. 


VARIABLES DESCRIPTION 
H1 Length of 0% 


H2 FOR/NEXT index. Identi- 
fies character in 0$ to be 
processed 


Length of J$ 


Error flag. KO=0 then по 
errors. KO=1 then 0$ 
contains an illegal nu- 
meric constant 


A count of the number of 
"Etg" in 0$ 
K2 А count of the number of 


А " "fs in 0$ 
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K3 


K4 


3$ 


0$ 


v$ 


W$ 


X$ 


Y$ 


CD 
Pel 


TYPE 


Local 


Local 


Local 


Locai 


Local 


Global 


Global 


Global 
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DESCRIPTION 


A flag that is set (K3=1) 
when the first numeric 
character is encountered 
in the mantissa or expon- 
ent of the constant 


The class of the character 
being processed (Y$) 


The reconstructed string 
containing the numeric 
constant, built as each 
character in D$ passes 
inspection 


The string that contains 
the constant to be tested 


The last valid character 
previous to the character 
being processed (Y$) 


Scratch variable 


String of blanks 135 char- 
acters long 


Scratch variable. Contains 


the current character being 
processed 
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4800 КЕМ VERIFY THE STRING IS NUMERIC THEN RIGHT JUSTIFY 
4818 RESTORE 4820 
4828 DATA 0,0,0,0,0,0 
4832 READ KO, H4,K1,K2,K3,K4 
4840 DELETE J$,V$ 
4850 Hi*LEN(COS) 
4862 DIM J$(H1), V$(1) 
4870 J$-"" 
4888 V$-"" 
4890 FOR H2=1 TO Hi 
4900 Y$-SEGCO$,H2,1) 
4910 K4=POS("B123456789. +Œ, ",Ү%,1) 
4920 IF K4(*0 THEN 5289 
4932 REM CASE 1 - Y$= A COMMA OR BLANK "IGNORE IT" 
4949 IF K4=15 OR K4=16 THEN 5040 
4958 IF K4=14 THEN 5129 
4960 IF K4=12 OR K4=13 THEN 5190 
4970 IF K4=11 THEN 5238 
4988 REM Y$ IS A NUMERIC CHARACTER 
4998 K3*1 
па ADD CHARACTER TO OUTPUT STRING (J$) AND INC. COUNTER (H4) 
H4*H4*1 
J$=REP(YS$, LENCJ$) 41, 0) 
V$sY$ 
NEXT H2 
.REM CHECK J$ FOR ZERO LENGHT OR NO DIGITS 
IF K3=0 OR LEN(J$)<#@ THEN 5288 
REM PACK NUMERIC STRING RIGHT JUSTIFIED 
O$ =J$ 
WS=SEG(X$, 1, I3-LEN(O$) ) 
5100 0$=REP(W$, 1,0) 
5118 RETURN 
5128 REM CASE 2 - ҮФ= "E" 
5138 IF LEN(VS)=@ THEN 5288 
5148 IF RSC(V$)=43 OR ASC(V$)=45 THEN 5280 
5158 Ki=1+K1 
5169 IF КІМ THEN 5288 
5178 K3*0 
5189 GO TO 5088 : 
5190 REM CASE 3 - Уз“ ñ PLUS OR MINUS SIGN 
5289 IF V$-"" THEN 5000 
5210 IF 86С(М6)< 69 THEN 5280 
5220 GO TO 5808 
5238 REM CASE 4 - \$= A DECIMAL POINT 
5240 К2=К2+1 
5250 IF K2>1 THEN 5289 
5268 IF Ki=>1 THEN S282 
5278 GO TO 5888 
5288 PRINT "ხარი Illegal numeric entry. Try again. чж" 
5290 К@”1 
5300 RETURN 
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SUBROUTINE 6 


When a 4054 is used to display a database with a width 
greater than 72, it can compensate by reducing its character 
size. Any database with a width (Т4) less than 133 сћагас- 
ters can be viewed on the screen of the 4054 without "wrap- 
around". Each subroutine determines if a 4054 is being used 
by the value of RND(O). If a 4051 or 4052 is being used or 
output is directed to a printer control is quickly passed 
back to the calling program, if not the appropriate character 
size is choosen, based on T4, and the variable A3 is changed 
to the number of lines that can fit on the screen. The 
second subroutine returns the 4054 back to character size 4 
and 30 lines per page. Some overlays need to view only one 
item from the database at a time. In these cases the subrou- 
tines have been modified by removing the check for printer 
output, deleting the lines referencing variable A2, and 


explicitly using primary adress 32 in all print statements. 


VARIABLE TYPE DESCRIPTION 


A1 Global Primary address where reports 
generated in overlay OV6 are 
printed 


Global Number of lines per page that 
fit onto one page of the device 
at primary address A1 
The 4054 character size that 
will prevent "wraparound" on 
the screen 


See page 32 
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This set of subroutines are used uhen 
printing reports in OV6 


6542 REM SELECT CHARACTER SIZE 

6550 IF RND(@)<@.8 THEN 6600 

6568 IF A1<>32 THEN 6600 

6570 К9-1%(74-73(0)%(14-80<0)%(74-120<0) 
6588 Q2» (КЭ=1 )ж56+(КЭ=2)ж54+(КЗ=3)ж34+(КЭ=4)ж38 
6590 PRINT @A1,17:K9 

6600 RETURN 

6610 REM RESET CHARACTER SIZE 

6628 IF RND(Q)<@.8 THEN 6660 

6630 IF 811232 THEN 6668 

6640 PRINT @A1,17:4 

6658 82539 

6662 RETURN 


This set of subroutines are used uhen 
printing only one item to the screen 


6420 REM SUBROUTINE TO SELECT CHARACTER SIZE ON 4954 
ваза IF RND(@)<@.8 THEN 6468 

6440 K9=1+(T4-7X0)+(T4-8008)+(T4-12B) 

6458 PRINT €32,17:K9 

6468 RETURN 

6479 REM SUBROUTINE TO RESET CHARACTER SIZE ON 4054 
6488 IF RND(@)<@.8 THEN 6500 

6490 PRINT @32,17:4 

6500 RETURN 
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FILE 1 


1 
e 
3 
4 REM 
5 
6 
T 


REM *** WARNING: This program is sensitive to being renumbered. 
REM *** Àny changes in line numbers of this program 
REM %%% "^ may require changes to be made to other programs. 


REM SET CHARACTER SIZE ОМ 4054” 


IF RND(0)<0.8 THEN 100 
PRINT 632,17:4 


8 REM 

93 REM REX AREA ARA 
94 REM XXX 51/07-6108/1 них 
95 REM *** RECORDKEEP II XXX 
96 REM #%% PII: 
97 REM *** кик 
98 REM HERR KER ERE H EH ЕЕ 
100 INIT 

110 PRINT USING 120: 


-з 
N 
о 


IMAGE "LJJJ",16X,"Data Base Management and Report Generation" 
130 CALL "TIME" ,A$ 

140 IF LEN(A$)>0 THEN 190 

150 PRINT "JPlease enter the current date and time as" 

160 PRINT "(DD-MMM-YY НН:ММ:55): "; 

170 INPUT A$ 

180 CALL "SETTIM",A$ 

190 PRINT "JThe disc with the programs will be placed in which"; 
200 PRINT " device? n"; 

210 INPUT A8 

220 IF A8=>0 AND A8<3 THEN 280 

230 PRINT USING 240: 

240 IMAGE "J* *** The device address you entered above does not",S 


| 250 PRINT USING 260: 
| 260 IMAGE " equal 0, 1, or 2. *" 


270 GO TO 190 
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PRINT "JThe disc with the database will be placed in which"; 
PRINT " device? "; 
INPUT AG 
IF A9=>0 AND A9<3 THEN 350 

© PRINT USING 240: 

> PRINT USING 260: 
» GO TO 280 

IF A8=A9 THEN 450 
PRINT "JPlease insert une ‚Drogen disc in device ";A8;"." 
PRINT "Then press Return. 
INPUT A$ 
CALL "MOUNT" ‚АВ, АБ 
PRINT "JPlease insert the database disc in device ";49;"." 
PRINT "Then press Return." 
INPUT A$ 

30 CALL "MOUNT",A9,A$ 
GO TO 490 
PRINT "JPlease insert Ju Program database disc in device ";А9;"." 
PRINT "Then press Return. 
INPUT A$ 
CALL "MOUNT" ,A9, A$ 


REM BEGIN OF MENU 


PRINT USING 120: 

PRINT USING tren yp en ; 18X у и "MENUMM"'" + 
‚ PRINT "I1) Create а new master database?" 

PRINT "I2) Maripulate an existing master database?" 

PRINT "I3) Load system programs onto disc?" 

PRINT "JPlease enter your selection: "; 

INPUT À 

ЈЕ A>G AND A<4 THEN 600 

PRINT "0% XXX Your selection is ot in the Menu. Try again. й" 
; GO TO 550 = 

оо GOSUB A OF 30500,30530,30000 
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REM OVERLAY MAIN PROGRAM TO TRANSFER SYSTEM PROGRAMS TO DIS 
REM 


DELETE A,B,A$,B$,C$,D$ 
DIM А(20),8(20) 

CALL "UNIT" ‚AB 

A$="MAIN OVO OV1 OVZ OV3 OV3A OV4 OV5 OV6 0V7 ОУТА" 
RESTORE 30240 

DATA 1,10,14,18,22,27,31, 35, 39,43,6,0,0,0,0,0,0,6,6,0 
DATA 4,3,3,3,4,3,3,3,3,4,3,0,0,0,0,0,0,0,0,0 

READ A,B 

DELETE 1,29999 

FIND 2 

D$="FILEINIT" 

B$="@DBMPROG/FILEINIT" 

H9-MEMORY 

APPEND 30000,0 

SAVE B$;1,29999 | 

PRINT "JJ*** ";Dg;" TRANSFERED ###*" 
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B$="@DBMPROG/RECORDKEEP/" 
FOR I=3 TO 13 

11=1-2 

DELETE 1,29999 

RENUMBER 30000 

FIND I 

H9=MEMORY 

APPEND 30000,0 

С%-5ЕС(А%,А(11),В(11)) 

D$=B$&C$ 

SAVE D$;1,29999 

PRINT "ERE ";C$;" TRANSFERED ***" 
NEXT I 
PRINT "J*** Program transfer complete. ###" 
PRINT "JJJPress AUTO LOAD key to select other programs." 
END 


REM CALL IN FILEINIT AS AN OVERLAY 


B$="@DBMPROG/FILEINIT" 
GO TO 30550 


REM CALL IN MAIN AS AN OVERLAY 


B$="@DBMPROG/ RECORDKEEP/MAIN" 

CALL "FILE",A8,B$,A$ 

CALL "UNIT" ‚АЗ 

IF LENCA$)>0 THEN 30620 

PRINT "0% XXX Program was not found on the disc. Have you loadep" 
PRINT "*** the system programs onto the disc? *" 
PRINT USING "5(110(2("" H""))), S": 

GO TO 490 

DELETE 1,29999 

H9=MEMORY 

APPEND B$;30000,0 

GO TO 1 
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30660 END 
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FILE 2 


1 REM 

100 REM xxx FILEINIT 

110 REM w THIS PROGRAM INITIALIZES THE DATABASES USED BY 

20 REM ки RECORDKEEP. THE PROGRAM WAS DERIVED FROM А PROGRAM 

REM к. DOCUMENTED IN SECTION 16 PP 4-212 TO 4-219 OF THE 
REM “u PLOT50 BUSINESS PLANNING AND ANALYSIS MANUAL. 
REM ник SUBSTANTIAL CHANGES HAVE BEEN MADE ТО STORE THE 
REM к. DATABASES ОМ А 4907 FLEXIBLE DISC SO THESE INSTRUC- 
REM 4% TIONS ARE NO LONGER APPLICABLE. 
REM ххх 


DELETE 30000,40000 
PRINT "LIFILE INITIALIZATION ROUTINE" 
PRINT "JThis routine will ask for information regarding titles, "; 
PRINT "size and the number of fields required for each item. "; 
PRINT "The first field for" 
PRI "each item will be a = - спавао бег record number in the file ard 
PRINT "labeled as 'ITEM//' 
PRINT "JHow many РА fields of information will be needed" 
PRINT "for each item: "; 
INPUT T1 
T1=T1+1 
PRINT "JEnter the width (in characters) of the media the data base 
PRINT "will be displayed on. (e.g. for the 4051 screen it would be 
20 PRINT "72, for a printer it would be 132 characters)" 
PRINT "The width is: "; 
INPUT T4 
5 DELETE T$ 
DIM T$(T4) 
PAGE 
T$="ITEM#" 
T8=0 
DIM C(T1,2),W$(133),X$(133),S$(133),P$(133) 
C(1,1)=5 
С(1,2)=1 
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A$=" " 
А$=А$&А$ 
B$="HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH" 
B$=B$&B$ 
X$=" 

=" 
X$=REP(C$,1,0) 

І9=0 
PRINT "JEnter, in order, width (number of characters) of each "; 
PRINT "additional field, whether the field will contain numeric"; 
PRINT " (1) or alphanumeric (2) data, and title for the field. "; 
PRINT "The width of any field can not exceed 70 characters.J" 
XOzTa-T1-4 Е u 
PRINT "NOTE:The sum of all additional field widths must be 
PRINT "less than or equal to ";X0;".J" B 


‚ FOR 1122 ТО ТІ 


680 
696 
700 
716 
720 
730 
740 
750 
760 
TTO 
786 


PRINT "JUser Field ";I1;": Field width (in characters): "; 
"INPUT С(11,1) 
IF С(11,1)>0 AND C(11,1)<71 THEN 650 
PRINT "J* *** Field width is less than one or greater than 74. 
PRINT "Try again *" 
GO TO 590 
PRINT "Will entries be numeric (1) or alphanumeric (2): "; 
INPUT С(11,2) 
IF C(11,2)<1 OR C(I1,2)»2 THEN 650 
Е%-5ЕС(А%,1,С(11,1)) 
Ғ%-5ЕС(В%,1,С(11,1)) 
PRINT "Title for field :";E$;F$; 
INPUT P$ 
19-Т9-С(11,1) 
ІК T9«zXO THEN 790 
PRINT "0% *** Length of record exceeds media width. Try agaim. 
T$=SEG(T$, 1,5) 
I1=T1 
NEXT [1 
GO TO 500 
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IF LEN(P$)<=C(I1,1) THEN 840 
G PRINT "J* *** Title exceeds length of field. Enter field data "; 
PRINT "again. *" | 
T9=T9-C(11,1) | 
GO TO 599 
IF LEN(P$)=C(I1,1) THEN 870 
W$=SEG(X$,1,C(I1,1)-LEN(P$)) 
‚ P$-P$&W$ 
T$=REP(P$,1+LEN(T$),0) 
NEXT 11 
T8=INT((T4-(T9+5))/(T1-1)) 
, S$-SEG(X$, 1, T8) 
S1=T8*(T1-1)+T9+5 
REM ADD SPACES BETWEEN TITLES 
[2=6 
FOR 1122 TO ТІ 
P$=SEG(T$,I2,C(11,1)) 
Р$=5$&Р$ 
Т$=ВЕР(Р$,12,С(11,1)) 
І2-І2%С(11,12%Т8 
NEXT I1 


REM бабай Tz IS USED FOR THE RECORD COUNTER AND T4 IS THE MEDIA 
REM +... WIDTH. 


Те=0 

REM HEX BEGINING OF THE 4907 DISC FILE INITIALIZATION 
CALL "UNIT" ,A9 

REM xxx REQUEST LIBRARY TITLE FOR DATABASE DEFINITION 


DELETE L$,J$ 
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J$="Family name" | 
PRINI "JEnter the database family name: HHHHHHHHHH"; 
INPUT L$ 

IF L$="" THEN 1080 

GOSUB 1570 

IF EO THEN 1080 

B$="@DATABASE/"&L$ 

B$=REP("/MASTER" , LEN(B$)+1, 0) 


REM #XX DETERMINE IF THE NAME GIVEN IS PREVIOUSLY DEFINED 


C$zB$&"/INIT" 

CALL "FILE" ,A9,C$,Z$ 

IF LEN(Z$)=0 THEN 1210 

PRINT "J# *** Files already exist under that family name. *" 
GO TO 1089 > 


REM TEX DEFINE FILEDEF TO CONTAIN RECORD DEFINITION 
REM ы ылы DEFINE DATABASE ТО CONTAIN RECORDS 


DIM K$(1) 

M$="BU" 

PRINT "JDo you want this data base to be a private file? (Y/N): " 
INPUT K$ 

GO TO POS("DYN",K$,1) OF 1250, 1300, 1400 

GO TO 1250 

J$="Password" 

PRINT "JEnter a file Password (1 to 10 characters must start with[ 
PRINT " a leter but the remaining characters can be alpharumeric.p" 
PRINT "Password is: HHHHHHHHHH"; 

INPUT L$ 

IF L$z"" THEN 1300 

GOSUB 1570 

IF EO THEN 1300 

L#$=REP(":" 1,0) 

B$zREP(L$,POS(B$,"/MASTER",9),0) 
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M$="BR" 
LO=2*T1*10+T4+6 МАХ 60 
C$=B$&"/ INIT" 

CREATE C$,"U";L0+0,0 
OPEN C$;1,"F",Z$ 
C$-B$&"/DATA" 

CREATE C$,M$; 1, T445 
OPEN C$;2,"F",2$ 


REM XXX ASSIGN LOGICAL UNIT 1 TO FILEDEF 
REM яки STORE RECORD PARAMETERS 


WRITE #1:T1,T2,T9,T8,T4,S1 

WRITE #1:C,T$ 

CLOSE 1 

WRITE #2,1:"DATABASE IS EMPTY" 

CLOSE 

PRINT "J* *** File initialization complete. *" 

PRINT "JJJPress AUTO LOAD key to select other programs." 
END 


REM 
REM CHECK THE PASSWORD OR FAMILY NAME 
REM 


Е0-0 

IF LEN(L$)<11 THEN 1650 

PRINT "% XXX ";J$;" is longer than ten characters. *** "; 
PRINT "Try again. *" 

GO TO 1790 

P$sSEGCLS, 1, 1) 

K6=ASC(P$) 

IF K6>64 AND K6<91 OR K6>96 AND K6<123 THEN 1700 

PRINT "* *** "> J$;" does not start with a letter. Try again. Я" 
GO TO 1790 

FOR IG=1 TO LEN(L$) 
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P$=SEG(L$,10,1) 
K6zPOS("ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890" ,P$,1) 
K6zK6«POS("abcdefghijklmnopqrstuvwxyz",P$,1) 
IF K6«z0 THEN 1770 

NEXT IO 

GO TO 1800 

PRINT "* *** ";Jg$;" contains blanks or поп alphanumeric "s 

PRINT " characters. *** Try again. *" 

Е0-1 d 

RETURN 
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FILE 3 


DELETE 30000,40000 
SET KEY 
GO TO 100 
PRINT 632,26:3 
5 RETURN 
43 RETURN 
44 PRINT 632,26:0 
45 RETURN 
99 RETURN 


100 
110 
120 
139 
140 
159 
160 
170 
180 
190 
200 
216 
220 
230 
240 
250 
260 
261 
262 
263 
264 


270 
280 


290 


na CC | TEKTRONIX 4051 PROGRAM 


MAIN PROGRAM 


GENERALIZED DATA BASE MANAGEMENT PROGRAM 
THIS PROGRAM IS DESIGNED TO OPERATE WITH THE 4907 FLEXAB 
DISC FILE MANAGER. THE PROGRAM HAS BEEN SEGMENTED AND 
OVERLAYED TO TAKE ADVANTAGE OF THE DISC'S RAPID ACCESS 
TIME. THIS ALLOWS LARGE PROGRAMS TO BE RUN WHERE MEMORY [5 
LIMITED. THE PROGRAM IS TARGETED TO RUN ON A 4051 WITH 8 
TO 16K OF RAM. 
THIS PROGRAM IS A MODIFIED AND ENHANCED VERSION OF THE O 
FOUND IN BP&A VOL. 1 SECTION 15 PP. 4-191 TO 4-212. MUQ 
OF THIS DOCUMENTATION IS NO LONGER APPLICABLE. 

AUGUST 1978 


WARNING: THIS PROGRAM IS SENSITIVE TO BEING RENUMBERED. 


ANY CHANGES IN THE NUMBERING OF THIS PROGRAM 
MAY REQUIRE CHANGES TO OTHER PROGRAMS. 


H$="@DBMPROG/ RECORDKEEP/OVO" 
GO TO 540 


REM DIRECTORY 


PAGENO: 78 
ABSTRACT NO: 


ВЕСОВОКЕЕГ 11 | 51/07-6108/1 


PRINT "LI MENU" 
‚ PRINT "JJI1. Add items to master.database file" 
PRINT "Іг. Delete items from master database file" 
PRINT "I3. Examine or modify an item in master database file" 
PRINT "JI4. List local or master:database file" 
PRINT "I5. Create local database file" 
PRINT "I6. Archive local database file" 
PRINT "JI7. Transfer archived database to local file" 
PRINT "18. List directory of database files" 
PRINT "19. Delete an archived database file" 
PRINT "4110. Sort local database file" 
PRINT "I11. List local or master database file with subtotals" 
PRINT "112. Stop" 
PRINT "JJJEnter number desired: "; 
INPUT АЗ . 
IF А3<=0 OR A3>12 THEN 290 
CALL "UNII",A8 
DELETE M$,K$ 
K$=STR(A(A3)) 
M$="@DBMPROG/RECORDKEEP/" 
К%-5ЕС(К%,2,3) 
K$=REP("0V",1,0) 
K$=REP(M$,1,0) 
IF K$=H$ THEN 570 
H$=K$ 


REM же THIS STATEMENT IS BRANCHED TO BY OV3 AND OV7. 
DELETE 4010,8990 
JczMEMORY 


APPEND H$;4000,10 
CALL "UNIT",A9 


REM 
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, РАСЕ МО: 79 
АВЗТНАСТ КО: 


RECORDKEEF 11 51/07-6108/1 


6060 REM 

610 REM BEGINNING OF OVERLAY AREA 
620 REM : 

4000 REM TARGET LINE FOR OVERLAY APPEND 

4010 REM 
4020 REM 
9000 REM END OF OVERLAY AREA 

9010 REM 

9020 REM —----- = - -- ------ 
9030 REM 


3 


9080 GO TO ¿290 
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PAGENO: 80 
ABSTRACT NO: 


RECORDKEEP II 51/07-6108/1 


TARGET LINE FOR OVERLAY APPEND 


OVERLAY 


DELETE H,HO,H1,H2,H3,HÀ4, H5,H6,H7,H8,H9 

DELETE Г, ГОТ, 12 13 14-15. T6417. 189,19 

DELETE მემე, лије 43,4% ქ5 Је от 28029 

DELETE K,KO,K1,K2,K3,Ka, K5,K6,KT7, KB, ко 

| I$,J$,K$,L$,M$,N$,O$,P$,Q$,R$,U$,V$,W$ 
Е = 

IF АЗ=1 THEN 4140 

H3=2 

GOSUB H3 OF 4170,5350 
0 GO TO 9600 


REM 
REM ROUTINE TO ADD ITEMS 


| PRINT "LIROUTINE ТО ADD ITEMS" 
PRINT "JField titles will appear on the screen in order. Enter"; 
PRINT " data for each item following the field title. To "; 
PRINT "discontinue data | entry, press RETURN after the first field 
O PRINT " title for an item appears. J" 


REM кк. T2 WILL BE THE RECORD COUNTER 


L$="" 

A$=" " 
1%-А%%А% 

B$=" HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH" 
B$=B$&B$ 

GOSUB 6090 
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PAGENO: 81 
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DIM U$(T4),Y$(1) 

IF К0-1 THEN 4770 

T2=T2+1 

U$="" 

DELETE 0$ 

DIM 0$(5+T8) 

PRINT 

O$=STR(TZ) 

13=5 

T5=5+T8+1 

GOSUB 4800 

IF Kö=0 THEN 4430 

STOP 

U$=REP(O$, 1+LEN(U$) , 0) 

Кф-"и 

FOR I4=2 ТО ТІ 
DELETE 0$, R$,W$ 
DIM R$(C(1I4,1)),W$(C(I4,1)+T8),0$(C(14,1)+T8) 
R$=SEG(T$,T5,C(I4,1)) 
C$=SEG(A$,1,C(I4,1)) 
D$=SEG(B$,1,C(14,1)) 
PRINT "Enter ";R$;" :";C$;D$; 
INPUT O$ 
IF O$z"" AND [4622 THEN 4510 
IF O$<>"" OR I4<>2 THEN 4580 


REM =e EXIT FROM THE ENTRY PORTION 


T2=T2-1 

GO TO 4730 

IF LEN(O$)<=C(I4,1) THEN 4620 

PRINT "J* *** Length of data exceeds field of ";C(14,1); 
PRINT " characters. *** Try again. *" 

GO TO 4510 

13:С(14, 1) 

GOSUB C(I4,2) OF 4800,5310 
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PAGENO: 82 
ABSTRACT NO: 


RECORDKEEP II 51/07-6108/1 


IF KO=0 THEN 4660 
GO TO 4510 
O$=S$&0$ 
U$=REP(O$, 14LEN(U$), 0) 
T5=T5+C(14,1)+T8 
NEXT 14 


REM eRe WRITE NEW RECORD TO DISC FILE 


WRITE #2,T2:U$ 
GO TO 4320 


REM xxx UPDATE RECORD DEFINITION INFO T2zNUMBER OF RECORDS 


CALL "REWIND" 1 

WRITE #1:Т1, Те, T9, T8, T4, S1 
WRITE #1:C,T$ 

CLOSE 

DELETE A$,B$,C$,D$ 

RETURN 


REM VERIFY THE STRING IS NUMERIC THEN RIGHT JUSTIFY 


RESTORE 4820 

DATA 0,0,0,0,0,0 

READ KO,H4,K1,K2,K3,K4 

DELETE J$,V$ 

H1=LEN(0$) 

DIM J$(H1),V$(1) 

Јф="" 

V$z"" 

FOR H2=1 TO НІ 
Y$=SEG(0$,H2,1) 
K4=POS("0123456789.+-E, ",Y$,1) 
IF Кч<-0 THEN 5280 
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ABSTRACT МО: 
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REM CASE 1 - Y$= А СОММА OR BLANK "IGNORE IT" 


IF K4=15 OR K4=16 THEN 5040 
IF K4s14 THEN 5120 
IF K4=12 OR K4=13 THEN 5190 
IF K4=11 THEN 5230 


REM Y$ IS A NUMERIC CHARACTER 
K3=1 
REM ADD CHARACTER TO OUTPUT STRING (J$) AND INC. COUNTER ( 
H4=H4+1 
J$=REP(Y$,LEN(J$)+1,0) 
V$=Y$ 
NEXT He 
REM CHECK J$ FOR ZERO LENGHT OR NO DIGITS 
IF K3=0 OR LEN(J$)<=0 THEN 5280 
REM PACK NUMERIC STRING RIGHT JUSTIFIED 
09:78 
W$=SEG(X$,1,13-LEN(O$) ) 
O$=REP(W$,1,0) 
RETURN 
REM CASE 2 - Y$= "E" 
IF LEN(V$)=0 THEN 5280 
IF ASC(V$)=43 OR ASC(V$)=45 THEN 5280 
K1=1+K1 


IF K1>1 THEN 5280 
K3=0 
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PAGENO: 84 
ABSTRACT NO: 
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S180 GO TO 5000 
5190 REM CASE 3 - Y$= A PLUS OR MINUS SIGN 


5200 IF V$="" THEN 5000 
5210 IF ASC(V$)<>69 THEN 5280 
5220 GO TO 5000 


5230 REM CASE 4 - Уфі A DECIMAL POINT 


5240 Ке=Ке+1 

5250 IF K2>1 THEN 5280 

5260 IF K1=>1 THEN 5280 

5270 GO TO 5000 

5280 PRINT "J* *** Illegal numeric entry. Try again. *" 
5299 K0=1 S 

5300 RETURN 


5310 REM PACK W/SPACES-ALPHANUMERIC 


2320 W$zSEG(X$,1,I3-LEN(O$)) 
5330 0$=0$&W$ 
5340 RETURN 


2350 REM ROUTINE TO DELETE AN ITEM 


5360 H9=0 

5370 Lg="" 

5380 GOSUB 6090 

5390 DIM U$(T4) , Y$(1) 

5400 IF К0-1 THEN 5450 

5410 READ #2,1: [$ 

5420 IF I$<>"DATABASE IS EMPTY" THEN 5470 

2430 PRINT "J* *** The MASTER database is EMPTY. Delete command "; 
5440 PRINT "aborted, #" 

5456 PRINT USING "4 ттофпинте) mi кұні 
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5460 
5470 
5480 
5490 
5500 
5510 


5520 


5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 


5650 


5660 
5670 
5680 
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ABSTRACT МО: 
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GO TO 6070 

CALL "REWIND" ,2 

фанти Е 

PRINT "JEnter Item Мо. to Бе deleted: Ws 
INPUT L$ ; 

IF L$z"" THEN 5490 


REM CHECK FOR NON-NUMERIC CHARACTERS 


FOR K5=1 TO LEN(L$) 
J$=SEG(L$,K5,1) 
IF J$=>"0" AND J$<="9" OR J$=" " THEN 5590 
PRINT "0% XXX Previous data entered contained non-numeric daba." 
PRINT "**Y Try again. *" 
GO TO 5490 ~ 
NEXT K5 
H8=VAL(L$) 
IF H8<=0 THEN 5830 
IF H8>0 AND H8<=Te THEN 5650 
PRINT "J* *** Item number must fall between 1 and ";T2;" #" 
GO TO 5490 


REM “ru READ SELECTED RECORD FROM DISC FILE 


READ #2,H8:U$ 

GOSUB 6420 

PRINT "L" ; Т5; "J" 

PRINT U$ 

GOSUB 6470 

PRINT "JIs this the item you wish to delete (Y/N): ws 
INPUT Y$ 

IF Y$="Y" THEN 5760 

IF Y$<>"N" THEN 5710 

GO TO 5470 


me A ow ~ 


TEKTRONIX 4051 PROGRAM 


PAGENO: 86 
ABSTRACT NO: 


RECORDKEEP II 51/07-6108/1 


REM wee FLAG RECORD TO BE REMOVED DURING PACK 


WRITE #2,H8:U$ 

PRINT "JDo you wish to delete another item? (Y/N): "; 
INPUT Y$ 

IF Y$="Y" THEN 5470 


REM eee PACK DELETED RECORDS FROM DATABASE 


IF H9=0 THEN 6070 
1021 
FOR 1121 TO T2 
READ #2,11:U$ 
I$=SEG(U$,1,5) 
THEN 5990 
IF IO=I1 THEN 5980 
1325 
O$=STR(IO) 
GOSUB 4800 
IF К0-0 THEN 5960 
STOP 
U$=REP(O$,1,5) 
WRITE #2,10:U$ 
10=10+1 
NEXT 11 
IOzIO-1 
І2-10 
IF 1220 THEN 6040 
WRITE #2,1:"DATABASE IS EMPTY" 
CALL "REWIND", 1 
WRITE #1:T1,T2,T9,T8,T4,S1 
WRITE #1:C,T$ 
CLOSE 
RETURN 
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ABSTRACT МО: 


RECORDKEEP II 51/07-6108/1 


КЕМ “un OPEN DATABASE FILES 


CLOSE 

К0-0 

GOSUB 6270 

CALL "FILE",A9,E$,K$ 

IF LEN(K$)>0 THEN 6190 

К0-1 

PRINT "0% XXX File was not found on disc. Я" 
PRINT USING " (1 10€ тер) ) ‚""_кКккК""" n 
GO TO 6260 

OPEN E$; 1,"F",K$ 

OPEN F$;2,"F",K$ 

READ #1:Т1,Т2,Т9,Т8,Т4,51 

DELETE C,T$ 

DIM C(T1,2),T$(T4) 

READ #1:C,T$ 

S$-SEG(X$,1,T8) 

RETURN 


REM SUBROUTINE TO CONSTRUCT FILE IDENTIFIERS (F.I.). 
REM L$ CONTAINS DATABASE NAME. E$ AND F$ CONTAIN F.I. 


K$="/LOCAL/INIT/" 
K$=REP(L$,LEN(K$)+1,0) 
IF L$<>"" THEN 6340 
K$=REP( "MASTER" ,2,5) 
K$=SEG(K$, 1, LEN(K$)=1) 
E$=G$&K$ 
K$="/LOCAL/DATA/" 
K$=REP(L$,LEN(K$)+1,0) 
IF L$<>"" THEN 6400 
K$=REP("MASTER",2,5) 
K$=SEG(K$,1,LEN(K$)-1) 
F$-G$&K$ 

RETURN 


про TEKTRONIX 4051 PROGRAM 


PAGENO: 88 
ABSTRACT NO: 


RECORDKEEP II 51/07-6108/1 


REM SUBROUTINE TO SELECT CHARACTER SIZE ON 4054 


IF RND(0)<0.8 THEN 6460 
K9=1+(T4-73<0)+(T4-80<0)+(T4-120<0) 
PRINT €32,17:K9 

RETURN 


REM SUBROUTINE TO RESET CHARACTER SIZE ON 4054 
IF RND(0)<0.8 THEN 6500 


PRINT €32,17:4 
RETURN 
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PAGENO: 89 
ABSTRACT NO: 


RECORDKEEP II 51/07-6108/1 


TARGET LINE FOR OVERLAY APPEND 


OVERLAY OV2 


DELETE H,HO,H1,H2,H3,H4, H5, H6,H7,H8,H9 
) DELETE 1,10,11, 12,13, 14, 15,164 17, 18, £9 
У DELETE 1,00,41;42,93,24,25,16,27,28;20 
| DELETE K,KO,K1, Ke, K3, Kl ,K5,K6, KT, KB, KO 
DELETE I1$,J$,K$,L$,M$,N$,0$,P$,Q0$, 8$, U$, V$, W$ 
GOSUB 4140 
GO TO 9000 


REM 
REM ROUTINE TO EXAMINE OR MODIFY 


14-"" 

Аф=" " 
А%-А%%А% 
В%-"ННННННННННННННННННННННННННННННННННН" 
B$=B$&B$ 

GOSUB 4900 

DIM I$(T4) ,U$(T4) ,Y$(1) 

IF KO THEN 4270 

READ #2,1:1% 

IF I$<>"DATABASE IS EMPTY" THEN 4290 
PRINT "ЈУ *** The MASTER database is EMPTY. Modify command "; 
PRINT “aborted. й" 

PRINT USING па (Тто( ""цин)) пи КК". 

GO TO 4876 й Pd 

CALL "REWIND" ,2 

Оф="" 

12=0 
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PAGENO: 90 x 
ABSTRACT NO: 


RECORDKEEP II 51/07-6108/1 


PRINT "JEnter Item No. to be examined: "; 
INPUT L$ 
IF L$="" THEN 4320 


REM CHECK FOR NON-NUMERIC CHARACTERS 


FOR K5=1 TO LEN(L$) 
J$=SEG(L$,K5,1) 
IF J$=>"0" AND J$<="9" OR J$=" " THEN 4420 
PRINT "J* *** Previous data entered contained non-numeric data." 
PRINT "ЖҰЖ Try again. *" 
GO TO 4320 
NEXT K5 
I1=VAL(L$) 
ЈЕ 11<=0 THEN 4870 
. T1»0 AND І1<-Т2 THEN 4480 
PRINT "J* *** Item number must fall between 1 and ";T2;" ян 
GO TO 4320 


REM к. READ SELECTED RECORD FROM DISC FILE 


GOSUB 5780 

PRINT "L";T$;"J" 

READ #2,11:U$ 

PRINT U$ 

GOSUB 5830 

PRINT "JJDo you wish to modify this item (Y/N): "; 
INPUT Y$ 

IF Y$="N" THEN 4830 

IF Y$<>"Y" THEN 4540 


PRINT "JTo leave a data item as it is, press RETURN." 
PRINT "To modify, enter correct data." 
T6=6+T8 
FOR I4s2 TO T1 
DELETE P$,R$,0$ 
DIM Р%(С(14,1)),8%(С(14,1)) 


000440592. ^ D TEKTRONIX 4051 PROGRAM 


! PAGENO: 91 
TITLE | ABSTRACT МО: 


RECORDKEE? II 51/07 -6108/1 


Р$=5ЕС(Т$,Т6,С(14, 1 
R$=SEG(U$,T6,CCI4,1 | 
С%-5ЕС(А%,1,С(14,1) 
D$=SEG(B$,1,C(I4,1) | 
PRINT " ";P$;" OLD: ";R$;" NEW :";C$;D$; 
INPUT O$ | 
[Е O$="" THEN 4790 
IF LEN(O$)<=C(I4,1) THEN 4750 
PRINT "J* *** Length of data exceeds field of ";C(I4,1); 
PRINT " characters. *** Try again. *" 
GO TO 4680 - = 
ІЗес (ІМ, 1) 
GOSUB С(14,2) OF 5230,5740 
IF KO=1 THEN 4680 
U$=REP(0$,T6,C(14,1)) 
T6=T6+C(14,1)+T8 
NEXT 14 


)) 
)) 
) 
) 


REM “un REPLACE SELECTED RECORD IN DISC FILE 


WRITE #2,11:U$ 

PRINT "JDo you want to examine another item (Y/N): "; 
INPUT Y$ 

IF Y$="Y" THEN 4300 

IF Y$<>"N" THEN 4830 

CLOSE 

DELETE A$,B$,C$,D$ 

RETURN 


REM XXX OPEN DATABASE FILES 


CLOSE 

K0z0 

GOSUB 5080 

CALL "FILE",A9,E$,K$ 
IF LEN(K$)>0 THEN 5000 
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PAGENO: 92 
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#0=1 

PRINT "ЈЕ *** File was not found on disc. #" 
PRINI USING "4(110(nngmm)), пи КК""". ა» 
GO TO 5079 ~ — 

OPEN E$;1,"F",K$ 

OPEN F$;2,"F" Kg 

READ 41:11, Тг, 19, 18, Т4,51 

DELETE С, 15 

DIM C(T1,2),T$(T4) 

READ #1:C,T$ 

S$=SEG(X$,1,T8) 

RETURN ` 


REM SUBROUTINE TO CONSTRUCT FILE IDENTIFIERS (F.I.). 
REM L$ CONTAINS DATABASE NAME. E$ AND F$ CONTAIN F.I. 


K$="/LOCAL/INIT/" 
K$=REP(L$,LEN(K$)+1,0) 
IF L$«»"" THEN 5150 
K$=REP("MASTER",2,5) 
K$=SEG(K$, 1, LEN(K$)-1) 
E$=G$&K$ 
K$="/LOCAL/DATA/" 
K$=REP(L$,LEN(K$)+1,0) 
IF L$<>"" THEN 5210 
K$=REP("MASTER",2,5) 
K$=SEG(K$,1,LEN(K$)-1) 
F$-G$&K$ 

RETURN 


REM VERIFY THE STRING IS NUMERIC THEN RIGHT JUSTIFY 


RESTORE 5250 
DATA 0,0,0,0,0,0 

READ K0,H4,K1,K2,K3,Ky 
DELETE J$,V$ 
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ABSTRACT NO: 
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H1=LEN(O$) 

DIM J$(H1),V$(1) 

Јф="" რ 

Vgz"" i 

FOR H2=1 TO H1 | 
Y$=SEG(O$,H2,1) : 
K4=P0S("0123456789.4+-E, " Y$,1) 
IF Кч<=0 THEN 5710 


REM CASE 1 - Уфа A СОММА OR BLANK "IGNORE IT" 
IF K4=15 OR K4=16 THEN 5470 

IF K4=14 THEN 5550 

IF Кч=12 OR K4=13 THEN 5620 

IF K4=11 THEN 5660 

REM Y$ IS A NUMERIC CHARACTER 


K3=1 


REM ADD CHARACTER TO OUTPUT STRING (J$) AND INC. COUNTER (Hl) 
H4=H4+1 
J$=REP(Y$,LEN(J$)+1,0) 
V$=Y$ 
NEXT He 
REM CHECK J$ FOR ZERO LENGHT OR NO DIGITS 
ЈЕ K3=0 OR LEN(J$)<=0 THEN 5710 
REM PACK NUMERIC STRING RIGHT JUSTIFIED 


05:75 
W$=SEG(X$, 1, 13-1ЕМ(05)) 


O$=REP(W$, 1,0) 
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RETURN 
REM CASE 2 - Y$= "E" 


IF LEN(V$)=0 THEN 5710 

IF ASC(V$)=43 OR ASC(V$)=45 THEN 5710 
K1=1+K1 

IF K1>1 THEN 5710 

K3=0 

GO TO 5430 


REM CASE 3 - Y$= A PLUS OR MINUS SIGN 


IF V$="" THEN 5430 
IF ASC(V$)<>69 THEN 5710 
GO TO 5430 


REM CASE 4 - Y$= A DECIMAL POINT 


К2-К2-1 

IF Кг>1 THEN 5710 

IF K1=>1 THEN 5710 

60 Т0 5430 

PRINT "0% *** [llegal numeric entry. Try again. *" 
К0-1 i 

RETURN 


REM PACK W/SPACES-ALPHANUMERIC 
W$zSEG(X$,1,I3-LEN(O$)) 

0$=0$&и$ 

RETURN 

REM SUBROUTINE TO SELECT CHARACTER SIZE ON 4054 


IF RND(0)<0.8 THEN 5820 
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K9=1+(T4-73<0)+(T4-80<0)+(T4-120<0) 
PRINT @32,17:K9 
RETURN 


REM SUBROUTINE TO RESET CHARACTER SIZE ON 4054 


IF RND(0)<0.8 THEN 5860 
PRINT 632,17:4 
RETURN 
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PAGENO: 96 
ABSTRACT NO: 


RECORDKEEP II 51/07-6108/1 


TARGET LINE FOR OVERLAY APPEND 


OVERLAY 


DELETE H,HO,H1,H2,H3,H4,H5,H6,H7,H8,H9 
DELETE 1,10,11,12,13,1%,15,16,17,18,19 
DELETE J,J0,J1,J2,J3,Ja,J5,J6,J7,J8,J9 
DELETE K,K0,K1,K2,K3,K4,K5,K6,K7,K8,K9 
DELETE I$,J$,K$,L$,M$,N$,0$,P$,Q$, R$,U$,V$,W$ 


REM CREATE A LOCAL DATABASE 
REM OPEN THE SOURCE DATABASE 


PRINT "JEnter the name of the LOCAL database (i.e. Source data"; 
PRINT "base) from which | you intend to create the new local data"; 
PRINT "base, or enter only a CR if you_wish to use the MASTER "; 
PRINT "database. HHHHHHHHHH "5 

INPUT L$ 

IF L$="!M" THEN 5510 

IF L$="" THEN 4220 

GOSUB 5870 

IF EO THEN 4130 

R$=L$ 

GOSUB 5540 

IF EO THEN 5510 

IF R$<>"" THEN 4270 

L$="MASTER" 

READ %2,1:1% 

IF I$<>"DATABASE IS EMPTY" THEN 4310 

PRINT "J* XX ит is EMPTY. Try again. Ў" 

GO TO 4120 

TO=0 
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PAGENO: 97 
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IF T2>0 THEN 4370 
PRINT "J* *** The MASTER database is EMPTY. Create command "; 
PRINT "aborted. *" 
O PRINT USING "4(110(""H"")),""_ КК"""; 
GO ТО 5510 
PRINT "LThe next step is to assign database fields to variables "kE 
O PRINT "which will be used іп the following logical expression."; 
PRINT " This is done in two parts, and each can be terminated "s 
PRINT "by responding with a CR to a prompt. Any numeric field ma 
PRINT "be assigned to one of the variables F1,F2,F3, or F4, and 
PRINT "similarly any field may be assigned to one of the chara"; 
PRINT "cter variables A$,B$,C$, or D$." 
DELETE A$,B$,C$,D$,F1,F2,F3,F4,HO 
RESTORE 4460 
DATA 0, C, O, 0, " то n a " у" " 
READ Е1, po. ЕЗ: F4,A$, B$, C$, D$ 
ს DIM HO(4, 2) 


REM * кою X X K X K K X Kk X X K # # X X # X X X X Kk X X X X + X 
REM * 

REM *** CONSTRUCT HO MATRIX. HO SPECIFIES WHICH ITEM FIELD 
REM ay IS ASSIGNED TO WHICH DATA VARIABLES. 

REM 


Н0--100 
M$z"FTFZF3F4A$SB$C$D$" 
N$z"O$P$Q$R$" 
PRINT "JNumeric variables will be assigned first. Choose from "; 
PRINT "list below. J" 
H7=1 
FOR I5=1 TO T1 
IF C(15,2)=2 THEN 4660 
DELETE I$ 
DIM 1$(С(15,1)) 
I$=SEG(T$,H7,C(I5,1)) 
PRINT USING "4X,3D,"")"" 2X 62A":15,1$ 
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RECORDKEEP II 51/07-6108/1 


H7=H7+C(I5,1)+T8 
NEXT I5 
PRINT " f 
19=100 


КЕМ OPEN FILE THAT PROGRAM STEPS WILL BE WRITTEN TO 


CALL "UNIT" ,A8 
K$="@DBMPROG/LOGIC" 
CALL "FILE"W, АДЕ Кее 
IF LEN(L$)>0 THEN 4760 
CREATE K$,"AU"; 100,0 
OPEN "GDBMPROG/LOGIC";8,"F",K$ 
FOR JO=1 TO г 
FOR K0=1 TO 4 
K$=SEG(M$,((J0-1)%*4+(K0-1))*2+1,2) 
PRINT "Enter the field number you wish to assign to variable "; 
PRINT Кф;": "; 
INPUT L$ 
IF L$z"" THEN 5330 


REM CHECK FOR NON NUMERIC CHARACTERS 


FOR K5=1 TO LEN(L$) 
J$=SEG(L$,K5,1) 
ТЕ J$=>"0" AND J$<="9" OR J$=" " THEN 4910 
PRINT "J* *** Previous data entered contained non-numeric c 
PRINT MX Try again. *" 
GO TO 4800 
NEXT K5 
TO=VAL(L$) 
IF IO=0 THEN 5510 
ТЕ 10>0 AND І0<-Т1 THEN 4970 
PRINT "J* XXX The field number is not between 1 and ";Т1 ". й" 


GO TO 4800 
IF JO=2 THEN 5010 
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IF C(IO,<4)=1 THEN. 5070 

PRINT "J* *** Field #";10;" is not a numeric field. *" 

GO TO 4800 u 

IF C(10,2)=2 THEN 5070 

PRINT "J* XXX Field #";10;" is not an alphanumeric field *" 
PRINT "JDo you want it treated as one? (Y/N): "; 
INPUT Y$ 

GO TO POS("YN",Y$,1) OF 5070,4800 

GO TO 5020 

HO(K0,JO)-IO 


REM STORE BEGINNING AND LENGTH OF FIELD IN V$ AND W$ 


H7=1 
FOR 11=1 TO ТІ 
IF 11-10 THEN 5150 
H7=H7+T8+C(11,1) 
NEXT 11 
STOP 
V$=STR(H7) 
W$zSTR(C(IO,1)) 
IF JO=2 THEN 5250 


REM WRITE PROGRAM STEPS FOR NUMERIC VARIABLES 


O$zSEG(N$,(KO-1)*241,2) 

19=19+10 

PRINT #8:19;" ";0$;"=SEG(U$,";V$;","W;W$;") " 
19-19-10 

PRINT #8:19;" ";K$;"zVAL(";O$;") " 

GO TO 5340 


REM WRITE PROGRAM STEPS FOR ALPHANUMERIC VARIABLES 


19=19+10 
PRINT #8:19;" V$=SEG(U$,";V$;","W;W$;") " 
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19=19+10 
PRINT #8:19;" GOSUB 4090 " 
19519+10 
PRINT #8:I9;" ";K$;"=V$ " 
GO TO 5340 
KO=4 
NEXT KO 
IF JO=2 THEN 5460 
PRINT "LAlphanumeric variables will now be assigned.J" 
H7=1 
FOR I5=1 ТО Т1 
DELETE I$ 
DIM I$(C(I5,1)) 
1%-5ЕС(1%,Н7,С(15,1)) 
PRINT USING "4X,3D,"")"",2X,624":15,1$ 
H7=H7+C(I5,1)+T8 
NEXT I5 
PRINT " " 
NEXT JO 


REM CALL OVERLAY OV3A 

CALL "UNIT" ,A8 

H$="@DBMPROG/ RECORDKEEP/OV3A" 

GO TO 540 

REM ABORT CREATION OF LOCAL FILE 


CLOSE 
GO TO 9000 


REM TEE OPEN DATABASE FILES 
CLOSE 


Е0=0 
GOSUB 5720 
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CALL "FILE" ,A9,E$,K$ 

IF LEN(K$)>0 THEN 5640 

2021 

PRINT "J* *** File was not found оп 
PRINT USING "H (1 10( Ни) ) “ავა იასა ათ 
GO TO 5710 

OPEN E$; 1,"F",K$ 

OPEN F$;2,"F",K$ 

READ #1:T1,T2,T9,T8,T4,81 

DELETE С, 15 

DIM C(I1,2),T$(T4) 

READ #1:C,T$ 

S$=SEG(X$,1, 18) 

RETURN 


REM SUBROUTINE TO CONSTRUCT FILE IDENTIFIERS (F.I.). 
REM L$ CONTAINS DATABASE МАМЕ. E$ AND F$ CONTAIN Е.Г. 


K$="/LOCAL/INIT/" 
K$=REP(L$,LEN(K$)+1, 0) 
IF L$«»"" THEN 5790 
Ке= КЕР( "MASTER" ,2,5) 
K$=SEG(K$,1,LEN(K$)-1) 
E$=G$&K$ 
K$="/LOCAL/DATA/" 
K$=REP(L$,LEN(K$)+1,0) 
IF L$<>"" THEN 5850 
K$=REP("MASTER",2,5) 
K$=SEG(K$,1,LEN(K$)-1) 
F$=G$&K$ 

RETURN 


REM 
REM CHECK THE PASSWORD OR FILE NAME IN L$ 
REM 
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E0=0 
IF LEN(L$)<11 THEN 5940 
PRINT "* *** The name is longer than ten characters. Try again. 
GO TO 6080 
P$=SEG(L$,1,1) 
K6=ASC(P$) 
IF K6>64 AND K6<91 OR K6>96 AND K6<123 THEN 5990 
PRINT "* *** The name does not start with a letter. Try again. * 
GO TO 6080 = 
FOR І0-1 ТО LEN(L$) 
P$=SEG(L$,10,1) 
K6=POS("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789",P$,1) 
K6zK6«POS("abedefghijklmnopqrstuvwxyz",P$,1) 
IF K6<=0 THEN 6060 
NEXT IO 
GO TO 6090 
PRINT "* *** The name contains blanks or non alphanumeric "; 
PRINT "characters. *** Try again. *" 
Е0-1 Е E 
RETURN 
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TARGET LINE FOR OVERLAY APPEND 


DELETE 5210,5420 
К 1=MEMORY 
GO TO 4320 


REM SUBROUTINE TO STRIP TRAILING BLANKS FROM V$ 
REM 


FOR I8=LEN(V$) ТО 1 STEP -1 
Y$=SEG(V$,18,1) 
IF Y$<>" " THEN 4150 
NEXT 18 
V$=SEG(V$,1,18) 


RETURN 


REM SUBROUTINE TO CONSTRUCT FILE IDENTIFIERS (Е.1.). 
REM L$ CONTAINS DATABASE NAME. E$ AND F$ CONTAIN Е.І. 


K$="/LOCAL/INIT/" 
K$=REP(L$,LEN(K$)+1,0) 
IF L$<>"" THEN 4240 
K$=REP("MASTER",2,5) 
K$=SEG(K$, 1,LEN(K$)-1) 
E$=G$4K$ 
K$="/LOCAL/DATA/" 
K$=REP(L$,LEN(K$)+1,0) 
IF L$<>"" THEN 4300 
K$=REP("MASTER",2,5) 
K$=SEG(K$,1,LEN(K$)-1) 
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F$=G$&K$ 
RETURN 


REM *** CONSTRUCT THE USER SUPPLIED LOGICAL EXPRESSION 


DELETE L,L$ 
PRINT "Lat this point you must enter a logical expression. 
PRINT 
PRINT " it will be included in the LOCAL database being created. 
PRINT "The only constraints on the expression are: 1) only data "| 
PRINT "variables assigned to fields above can be used, 2 
PRINT "expression must not have syntax errors, and 3) it can b 
PRINT "no longer than 65 characters. Fields are listed below.J 
FOR 1421 TO e 
FOR 15=1 TO à 
K$=SEG(M$, ( (14-1) #44+( 15-1) ) ¥241,2) 
H7=1 
IF HO(I5,I4)«0 THEN 4540 
FOR 16=1 TO T4 
IF НО(15,14)<>16 THEN 4510 
L$=SEG(T$,H7,C(I6,1)) 
PRINT USING "4Х,24,"" = "",63A":K$;L$ 
I6=T1 
H7=H7+C(16,1)+T8 
NEXT I6 
GO TO 4550 
15=4 
МЕХТ 15 
ЈЕ [4=2 THEN 4580 
PRINT " " 
NEXT 14 
DELETE L$ 
DIM L$(65) 
PRINT "JPlease enter the logical expression below. y 
PRINT "` 
PRINT " K ШЕ 
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INPUT L$ 

IF L$="" THEN 4340 
19=19+10 

PRINT #8:19;" L=";L$ 
PRINT #8:"" 

CLOSE 8 


REM CREATE DISC FILE FOR LOCAL DATABASE 


PRINT "ЈЕпбег the name (1 to 10 characters) of the LOCAL "; 
PRINT "database: HHHHHHHHHH"; 

INPUT L$ 

IF L$="" THEN 4710 

IF L$="!M" THEN 5570 

GOSUB 5600 

IF EO THEN 4710 

IF R$="" OR R$<>L$ THEN 4820 

PRINT "J* XXX. ";R$;" was used above for the source database." 
PRINT "*** Choose another name. *" 

GO TO 4710 3. 

GOSUB 4170 

CALE МЕЈБЕ A9,E$,K$ 

IF LEN(K$)=0 THEN 4920 

PRINT "0% *** Local file name in use. й" 

PRINT "JDo you want to overwrite the Local file (Y/N): "; 
INPUT Y$ 

GO TO POS("YN",Y$,1) OF 4900,4710 

GO TO 4860 

KILL E$ 

KILL F$ 

LO=(2*T1+5)%*10+T4+3 

CREATE E$,"U";LO+0,0 

CREATE F$,"U";1,T4+5 

OPEN E$;8,"F",M$ 

OPEN F$;7,"F" M$ 

WRITE #8:T1,0,T9,T8,T4,S1 


000-6405-02 ма | TEKTRONIX 4051 PROGRAM 


PAGENO: 106 
ABSTRACT NO: 


RECORDKEEP II 51/07-6108/1 


4980 WRITE #8:C,T$ 

4990 WRITE #7,1:"DATABASE IS EMPTY" 

5000 CALL "REWIND",8 

2010 CALL "REWIND" ,7 

5020 CALL "UNIT",A8 

5030 K1=MEMORY 

5040 APPEND "@DBMPROG/LOGIC","ASCII";5200 

5050 CALL "UNIT" ,A9 

5060 DELETE A$,B$,C$,D$,0$,P$,Q$, R$, V$ 

5070 DIM ASCT4) ,B$CT4) ,C$(T4) ,D$ (T4) ,P$CT4) ,Q$CT4) RECTA) ,O$(TH) ,V§( 14, 


5080 REM * 
5090 REM *** WRITE LOCAL DATABASE 
5100 REM * 


5110 Того 

5120 DELETE U$ 

5130 DIM U$(T4) 
5140 FOR J3=1 TO T2 


5150 READ 42,J3:U$ 
5160 REM 

5170 REM ---------------------------------------------------------4----- 
5180 REM 

5190 REM PROGRAM STEPS WRITTEN TO DISC BY OV3 APPENDED HERE 
5200 REM TARGET LINE FOR PROGRAM STEP APPEND 

5210 REM 

5220 REM 

5230 REM 

5240 REM 

5250 REM 

5260 REM 

5270 REM 

5280 REM 

5290 REM 

5300 REM 
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REM END OF APPENDED PROGRAM STEPS 
REM 


IF NOT(L) THEN 5510 

TO=TO+1 

WRITE #7,TO:U$ 
NEXT J3 
IF TO>0 THEN 5550 
PRINT "0% *** WARNING: Created database is ЕМРТҮ! *" 
PRINT USING "5(110(2("" HU PRA ККиии. 
WRITE #8:Т1, ТО, 19, Т8, Т4, $1 => 
WRITE #8:C,T$ 
CLOSE 
DELETE A$,B$,C$,D$ 
GO TO 9000 


REM 
REM CHECK THE PASSWORD OR FILE NAME IN L$ 
REM 


Е020 
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IF LEN(L$)<11 THEN 5670 
PRINT "* *** The name is longer than ten characters. Try again. F" 
GO TO 5810 
P$=SEG(L$,1,1) 
K6=ASC(P$) | 
IF K6>64 AND K6<91 OR K6>96 AND K6<123 THEN 5720 
PRINT "ў *** The name does not Start with a letter. Try again. Я 
GO TO 5810 
FOR 10=1 TO LEN(L$) 
Р%-5ЕС(1%,10,1) 
K6=POS("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789",P$,1) 
K6=K6+POS("abcdefghijklmropqrstuvwxyz",P$,1) 
IF K6<=0 THEN 5790 
NEXT IO 
GO TO 5820 
PRINT "* *** The name contains blanks or non alphanumeric Es 
PRINT "characters. *** Try again. *" 
L0=1 Ы 
RETURN 
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TARGET LINE FOR OVERLAY APPEND 


OVERLAY 


DELETE H,HO,H1,H2,H3,H4,H5,H6,H7,H8,H9 

DELETE I,IO0,IT,I2,13,14,15,I5,1T,15,19 

DELETE J,J0,J1,J2,J3,J4,J5,J6,J7,J8,J9 

DELETE K,K0,K1,K2,K3,K4,K5,K6,K7,K8,K9 

.. 1$,3$,K$,L$,M$,N$,0$,P$,0$,R$,U$,V$,W$ 
H3= 

IF A3=6 THEN 4140 

НЗаг 

GOSUB H3 OF 4170,4630 

GO TO 9000 


REM 
REM ARCHIVE A LOCAL DATABASE 


CLOSE 

PRINT "JEnter the LOCAL database name you wish to archive: 
PRINT " HHHHHHHHHH"; 

INPUT L$ 

IF L$="" THEN 4190 

IF L$="!M" THEN 4610 

GOSUB 5170 

IF EO THEN 4190 

GOSUB 5020 

M$=E$ 

N$=F$ 

CALL "FILE" ,AY9,M$,K$ 

IF LEN(K$)>0 THEN 4330 

PRINT "J* *** LOCAL database was not found on disc. я" 
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GO TO H190 

OPEN М$;1,"Е",0$ 

READ #1:T1,T2,T9,T8,T4,S1 

CLOSE 

IF T2>0 THEN 4390 

PRINT "J* *** The local database is empty. *" 
GO TO 4190 Е 
PRINT "JEnter the file name for the ARCHIVE copy, or if it is thef'; 
PRINT " same as the local file name enter only a carriage return.| 
PRINT "Enter name: НННННННННН"; 
INPUT L$ 

IF L$="!M" THEN 4610 

IF L$z"" THEN 4480 

GOSUB 5170 

IF EO THEN 4390 

GOSUB 5020 

E$=REPC"ARCHIVE",LEN(G$)+2,5) 

F$=REP( "ARCHIVE" ,LEN(G$)+2,5) 

CALL "FILE" ,A9,E$,K$ 

IF LEN(K$)=0 THEN 4590 

PRINT "J* *** Archive file папе in use. *" 
PRINT "JDo you want to overwrite the Archive file (Y/N): "; 
INPUT Y$ 

GO TO POS("YN",Y$,1) OF 4570,4390 

GO TO 4530 

KILL E$ 

KILL F$ 

COPY M$,A9 TO E$,A9 

COPY N$,A9 TO F$,A9 

CLOSE 

RETURN 


REM COPY AN ARCHIVE FILE TO LOCAL FILE 


PRINT "JEnter the name of the ARCHIVED database to become a local); 
PRINT " file. Enter name: HHHHHHHHHH"; 
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INPUT L$ 

IF L$="" THEN 4640 

IF L$="!M" THEN 5000 

GOSUB 5170 

IF EO THEN 4640 

GOSUB 5020 

M$=E$ 

N$=F$ 

M$=REP( "ARCHIVE" ,LEN(G$)+2,5) 

NS=REP( "ARCHIVE" ,LEN(G$)+2,5) 

CALL "FILE" ,A9,M$,K$ 

IF LEN(K$)>0 THEN 4800 

PRINT "J* *** Archived database was not found on disc. #9 
GO TO 4640 

PRINT "JEnter the LOCAL file name, or only a carriage return if " 
PRINT "you want the local file name the same as the archived file[; 
PRINT ". Enter name: HHHHHHHHHH" ; 

INPUT L$ 

IF L$="!M" THEN 5000 

IF L$="" THEN 4890 

GOSUB 5170 

IF EO THEN 4800 

GOSUB 5020 

CALL "FILE",A9,E$,K$ 

IF LEN(K$)=0 THEN 4980 

PRINT "J* *** Local file name in use, ЯМ 

PRINT "JDo you want to overwrite the Local file (Y/N): "; 
INPUT Y$ 

GO TO POS("YN",Y$,1) OF 4960,4800 

GO TO 4920 

KILL E$ 

KILL F$ 

COPY M$,A9 TO E$,A9 

COPY N$,A9 TO F$,A9 

CLOSE 

RETURN 
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5020 
5030 


5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 


5170 
5180 
5190 


5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
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REM SUBROUTINE TO CONSTRUCT FILE IDENTIFIERS (Е.І.). 
REM L$ CONTAINS DATABASE NAME. E$ AND F$ CONTAIN Е.І. 


K$="/LOCAL/INIT/" 
K$=REP(L$,LEN(K$)+1,0) 
IF L$<>"" THEN 5090 
K$=REP( "MASTER" 2,5) 
K$=SEG(K$, 1, LEN(K$)~-1) 
E$=G$&K$ 
K$="/LOCAL/DATA/" 
K$=REP(L$,LEN(K$)+1,0) 
IF L$<>"" THEN 5150 
K$=REP("MASTER",2,5) 
K$=SEG(K$,1,LEN(K$)-1) 
F$=G$&K$ 

RETURN 


REM CHECK THE PASSWORD OR FILE NAME IN L$ 


E0=0 
IF LEN(L$)<11 THEN 5240 
PRINT "Є XXX. The name is longer than ten characters. Try again. წ" 
GO TO 5380 
P$=SEG(L$,1,1) 
K6=ASC(P$) 
IF K6>64 AND K6<91 OR K6>96 AND K6<123 THEN 5290 
PRINT "* *** The name does not start with a letter. Try again. *[' 
GO TO 5380 
FOR I0=1 TO LEN(L$) 
P$=SEG(L$, 10,1) 
K6=POS("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789",P$,1) 
K6=K6+POS("abcdefghijklmnopqrstuvwxyz",P$,1) 
IF K6<=0 THEN 5360 
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NEXT IO 

GO TO 5390 

PRINT "Ж *** The name contains blanks or non alphanumeric "; 
PRINT "characters. *** Try again. *" 

Bos] i С 

RETURN 
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TARGET LINE FOR OVERLAY APPEND 


= — — — — — «ы — — — — — — ае — — өше — — өше «ше ФФ «м» чы аг «ше а ww «ше «е www ww «ше «ша о г гар, « «лә и ө- = == = = сю = = = = 


OVERLA Y 


DELETE H,H0,H1,H2,H3,H4,H5,H6,H7,H8,H9 
DELETE 11021 12.413 194, 16.16; 17. I8, I9 
DELETE 4,40,91,г,93,4ч,45,496,41,48,49 
DELETE K,KO,K1,K2,K3,K4,K5,K6,K7,K8,K9 
a I$,J$,K$,L$,M$,N$,0$,P$,Q$, R$,U$,V$,W$ 
IF A3<>8 THEN 4140 

H3=2 

IF A3<>9 THEN 4160 

H3=3 

GOSUB H3 OF 4180,4310,4490 

GO TO 9000 


REM CLOSE ALL FILES AND DELETE LOCAL FILES FROM DISC 


CLOSE 

PRINT "J*** WARNING - LOCAL FILES WILL BE DELETED FROM DISC." 
PRINT "*** Have you archived those files you wish saved (Y/N)? " 
INPUT Y$ 

IF Y$<>"Y" THEN 4300 

G$=REP("/LOCAL#" , LEN(G$)+1,0) 

KILL G$ 

PRINT @32,26:0 

PRINT "0% *** Execution complete. *JJJ" 

PRINT "Press AUTO LOAD key to select other programs." 

END 

RETURN 
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REM DIRECTORY OF DATABASE FILES 


CALL "UNIT" ,A9 

K$=G$&"/MASTER/DATA#" 

PRINT "LDirectory of database files" 
CALL "TIME" ,M$ 
PRINT " "M$ 

PRINT "J Master database" 
DIRECTORY 0,K$ 
K$=REP("LOCAL",LEN(G$)+2,6) 
PRINT "J Local databases" 
DIRECTORY O,K$ 
K$-REP(U"ARCHIVE",LEN(G$)42,5) 
PRINT "J Archive databases" 
DIRECTORY O,K$ 


REM FORCE FULL PAGE CONDITION 


MOVE 0,0 
PRINT 
RETURN 


REM ROUTINE TO DELETE ARCHIVE FILES 


PRINT "JEnter the name of the ARCHIVED file you want to delete "; 
PRINT "from the disc. Enter name: HHHHHHHHHH"; 
INPUT L$ 

IF L$z"" THEN 4500 

IF L$z"!M" THEN 4660 

GOSUB 4830 

IF EO THEN 4500 

GOSUB 4680 

E$=REP( "ARCHIVE" ,LEN(G$)+2,5) 

F$=REP( "ARCHIVE" ,LEN(G$)+2,5) 

CALL "FILE" ,A9, ЕФ, KS 

IF LEN(K$)>0 THEN 4640 
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PRINT "J* *** Archived database was not found on the disc. *" 
GO TO 4500 = 
KILL E$ 

KILL F$ 

CLOSE 

RETURN 


REM SUBROUTINE TO CONSTRUCT FILE IDENTIFIERS (Е.І.). 
REM L$ CONTAINS DATABASE NAME. E$ AND F$ CONTAIN Е.1. 


K$z"/LOCAL/INIT/" 
K$=REP(L$, LEN(K$)+1, 0) 
IF L$<>"" THEN 4750 
K$=REP("MASTER", 2,5) 
K$=SEG(K$,1,LEN(K$)-1) 
E$=G$&K$ 
K$="/LOCAL/DATA/" 
K$=REP(L$,LEN(K$)+1,0) 
IF L$<>"" THEN 4810 
K$=REP("MASTER",2,5) 


K$=SEG(K$,1,LEN(K$)-1) 
F$=G$&K$ 
RETURN 


REM 
REM CHECK THE PASSWORD OR FILE NAME IN L$ 
REM 


Е0-0 

IF LEN(L$)<11 THEN 4900 

PRINT "* *** The пате is longer than ten characters. Try again. 
GO TO 5040 

P$=SEG(L$,1,1) 

K6=ASC(P$) 

IF K6>64 AND K6<91 OR K6>96 AND K6<123 THEN 4950 

PRINT "* *** The name does not start with a letter. Try again. * 
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GO TO 5040 
FOR [0=1 TO LEN(L$) 
P$=SEG(L$,I0,1) 
K6= POS ( "ABCDEF GHI JKLMNOPQRSTYVWXYZ0 123456789", P$,1) 
K6= Is bed тапа Клио Рао Ину P$,1) 
IF K6<=0 THEN 5020 
NEXT IO 
GO TO 5050 
PRINT "* *** The name contains blanks or non alphanumeric "; 
PRINT "characters.  *** Try again. Я" 
Е0-1 Е 
RETURN 
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FILE 10 


4000 REM TARGET LINE FOR OVERLAY APPEND 

4010 REM 

4020 REM -------- 9 22 oo - 
4030 REM 

4040 REM OVERLAY 

4050 REM 


4060 DELETE H,HC,H1,H2,H3,H4,H5,H6,H7,H8,H9 

4070 DELETE 1,10,11,12,13,14,15,16,17,18,19 

4080 DELETE J,J0,J1,J2,J3,J4,J5,J6,J7,J8,J9 

4090 DELETE K,K0,K1,K2,K3,K4,K5,K6,K7,K8,K9 

4100 DELETE I$,J2$,K$,L$,M$,N$,0$,P$,Q$, R$,U$,V$,W$ 
4110 А%-" " 

4120 А%-А%%А% 

4130 B$z"HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH" 

4140 В%-В%4В% 


4150 REM LIST A LOCAL OF MASTER FILE WITH OR WITHOUT TOTALS 


4160 H9z0 

4170 IF A3=11 THEN 4190 

4180 H9=1 

4190 PRINT "JErter the name of the LOCAL database you want listed, er 
4200 PRINT "enter only a CR if you want the MASTER database listed. 
4210 PRINT "Database name? HHHHHHHHHH"; 

4220 INPUT L$ 

4230 IF L$="!M" THEN 5530 

4240 IF L$z"" THEN 4270 

4250 GOSUB 6350 

4260 IF EO THEN 4190 

4270 GOSUB 5600 

4280 IF EO THEN 5580 

4290 READ #2,1:1$ 

4300 IF I$<>"DATABASE IS EMPTY" THEN 4340 

4310 PRINT "J* *** The database is EMPTY. List command "; 


С 000-6405.02 TEKTRONIX 4051 PROGRAM 


PAGENO: 119 
ABSTRACT NO: 


RECORDKEEP II 51/07-6108/1 


PRINT "aborted. #" 
GO TO 5580 d 
CALL "REWIND" ‚2 
DIM U$(T4) 
IF H9 THEN 4860 
PRINT "LJChoose a numeric field to be totaled.J" 
H7=1 
FOR 11-1 TO Т1 
IF C(11,2)=2 THEN 4450 
DELETE I$ 
DIM I$(C(I1,1)) 
I$=SEG(T$,H7,C(11,1)) 
PRINT USING “ах 3D, "пуми 2Х бРА" 11.13 
H7=H7+C(11,1)+T8 
NEXT 11 
PRINT "JField number? "; 
GOSUB 6190 
IF K7=1 THEN 4470 
H8=K6 
IF H8=0 THEN 5540 
IF H8>0 AND H8<=T1 THEN 4560 
PRINT "J* *** Field number given does not occur in list above."; 
PRINT " try again *" 
GO TO 4370 
IF C(H8,2)=2 THEN 4530 
PRINT "LChoose a field below to control subtotals.J" 
H7=1 
FOR I1=1 TO T1 
DELETE I$ 
DIM 1%(С(11,1)) 
I$=SEG(T$,H7,C(I1,1)) 
PRINT USING "4X,3D,"")"" 2X,62A":I1,I$ 
H7=H7+C(11,1)+T8 
NEXT 11 
PRINT "JField number? "; 
GOSUB 6190 
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IF K7=1 THEN 4660 

H7=K6 

IF H7=0 THEN 5540 

IF H7>0 AND H7<=T1 THEN 4750 

PRINT "J* *** Field number given does not occur in list above."; 
PRINT " Try again. *" 

GO TO 4570 Е 


REM 91 IS BEGIN. OF NUM. FIELD, J2 IS BEGIN. OF CONTROL FIELD 


17=1 
FOR 1121 TO T1 
IF NOT(H8=11 ОК H7=I1) THEN 4840 
IF H8=11 THEN 4820 
Ј2=17 
GO TO 4840 
Ј1=17 
IF H7=H8 THEN 4800 
I7=17+C(11,1)+T8 
NEXT 11 
H4=T4-12 MIN 70 
DELETE O$,I$,N$ 
DIM 0$(H4),1I$(T4),N$(T4) 
C$=SEG(A$,1,H4) 
D$=SEG(B$,1,H4) 
PRINT "JEnter a ";H4;" character title to be printed with m"; 
PRINT "listing. :";C$;D$; 
INPUT O$ 
IF LEN(O$)>H4 THEN 4910 
19=1 
Ј9=0 
Ј8=0 
H6=INT((T4-8-LEN(0$))/2) 
I$=SEG(X$,1,H6) 
H6=T4-H6-LEN(O$)-8 
J$=SEG(X$,1,H6) 
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N$=I$&O$ 
N$=REP(J$,LEN(N$)+1,0) 
N$=REP( "PAGE ",LEN(N$)+1,0) 
CALL "TIME" M$ 
M$=SEG(M$,1,15) 
H6=INT((T4-23)/2) 
I$=SEG(X$,1,H6) 
M$=REP(I$,1,0) 
Н0-100 
Н1-0 
DELETE I$, R$ 
DIM 1$(133),R$(133) 
GOSUB 6540 
FOR I1=1 TO T2 
HO=H0+1 
READ #2,11:U$ 
IF H9 THEN 5330 
DELETE J$,K$ 
DIM J$(C(H7,1)),K$(C( 
J$=SEG(U$,J2,C(H7,1)) 
K$=SEG(U$,J1,C(H8,1)) 
I4=VAL(K$) 
ІК 19=0 THEN 5280 
R$=J$ 


REM R$ IS THE PREVIOUS CONTROL FIELD VALUE 
REM CHECK TO SEE IF ONE SHOULD PRINT SUBTOTALS 


H8,1)) 


GOSUB (R$<>J$)+0 OF 5930 
REM PRINT PAGE HEADINGS WITH TITLES 


Ј8=Ј8+14 
49-49-14 


КЕМ CHECK ТО SEE IF NEW PAGE IS REQUIRED 
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GOSUB (HO>AZ)+0 OF 6080 
PRINT @A1:U$ 

NEXT [1 

IF H9 THEN 5500 


REM PRINT OUT GRAND TOTALS 


GOSUB 5930 

GOSUB (HO>AZ2)+0 OF 6080 
DELETE I$,L$,K$ 
K$=STR(J9) 
H5=J1+C(H8,1)-LEN(K$)-16 
DIM I$(H5+1) 

L$=" Grand Total " 

ЈЕ H5«0 THEN 5490 
I$=SEG(X$,1,H5) 

PRINT 6A1:1$;L$;K$ 

GO TO 5500 

PRINT @A1:K$;L$ 

IF A1<>32 THEN 5530 
MOVE 0,0 

PRINT 


REM EXIT OVERLAY 


CLOSE 

GOSUB 6610 

DELETE A$,B$,C$,D$ 

GO TO 9000 

PRINT USING "у(110(""Н"")) пи genen, 
GO TO 5530 


REM “EN OPEN DATABASE FILES 


CLOSE 
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Е0:0 

GOSUB 5780 

CALL "FILE",A9,E$,K$ 

IF LEN(K$)>0 THEN 5700 | 

Е0-1 

PRINT "კჯ *** File was not found оп disc. *" 
PRINI USING "4(110(nngnnm)) пи КК""". pes 
GO TO 5770 т EE 

OPEN ЕФ; 1,"F",K$ 

OPEN F$;2,"F",K$ 

READ #1:T1,T2,T9,T8,T4,51 

DELETE C,T$ 

DIM C(T1,2),T$(T4) 

READ #1:C,T$ 

S$=SEG(X$,1, 18) 

RETURN 


REM SUBROUTINE TO CONSTRUCT FILE IDENTIFIERS (Е.1.). 
REM L$ CONTAINS DATABASE МАМЕ. E$ AND F$ CONTAIN F.I. 


K$="/LOCAL/INIT/" 
K$=REP(L$,LEN(K$)+1,0) 
IF L$<>"" THEN 5850 
K$=REP("MASTER" , 2,5) 
K$zSEG(K$,1,LEN(K$)-1) 
Е$=С$&К$ 
K$="/LOCAL/DATA/" 
K$=REP(L$,LEN(K$)+1,0) 
IF L$<>"" THEN 5910 
K$=REP("MASTER",2,5) 
K$=SEG(K$,1,LEN(K$)-1) 
F$zG$&K$ 

RETURN 


REM PRINT SUBTOTALS 
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DELETE I$,L$,K$ 
K$=STR(J8) 
H5=J1+C(H8,1)-LEN(K$)-13 
L$=" Subtotal " 

IF Н5<0 THEN 6030 

DIM I$(H5) 
I$=SEG(X$,1,H5) 

PRINT 6A1:1$;L$;K$;"JJ" 
GO TO 6040 = 
PRINT 6A1:K$;L$;"JJ" 
HO=H0+3 = 

Ј8=0 

R$=J$ 

RETURN 


REM PRINT PAGE HEADINGS WITH TITLES 


IF A1<>32 OR I9 THEN 6120 
MOVE 0,0 

PRINT " " 

H1=H1+1 

PRINT 6A1:"L";N$;H1 

PRINT 6A1:M$;"J" 

PRINT 6A1:T$ ^ 

Н0-5 

19-0 

RETURN 


REM SUBROUTINE TO CHECK FOR NON-NUMERIC CHARACTERS 


INPUT L$ 
IF L$="" THEN 6280 
K7=0 
FOR K5=1 TO LEN(L$) 
J$=SEG(L$,K5,1) 
ЈЕ J$=>"0" AND J$<="9" OR J$=" " THEN 6300 
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PRINT "J*_ 

PRINT "%%% 

K7=1 

GO TO 6320 
NEXT K5 
K6=VAL(L$) 
RETURN 


REM CHE 


Е0-0 

IF LEN(L$)<11 

PRINT ЦЕ XXX 

GO TO 6520 

P$=SEG(L$,1,1) 

K6=ASC(P$) 

IF K6>64 AND K 

PRINT "x ххх 

GO TO 6520 

FOR 1051 TO LE 
P$=SEG(L$, 
K6zPOS("AB 
K6=K6+POS( 
IF K6<=0 T 

NEXT IO 

GO TO 6530 

PRINT ' %%% 

PRINT "charact 

Е0-1 

RETURN 


REM SELECT 
IF RND(0)<0.8 


ЈЕ A1<>32 THEN 
K9=1+(T4-73<0) 


`000.6405-02 


*** Previous data entered contained non-numeric da 
Try again. Я" 


CK THE PASSWORD OR FILE NAME IN L$ 


THEN 6580 
Ihe name is longer than ten characters. Try again. 


6«91 OR K6>96 AND K6<123 THEN 6430 
The name does not start with a letter. Try again. 


N(L$) 

02719 
CDEFGHIJKLMNOPQRSTUVWXYZ0123456789" P$, 1) 
"abedefghijklmnopqrstuvwxyz",P$,1) 

HEN 6500 


Ihe name contains blanks or non alphanumeric "; 
ers, MI. Try agaln,:t" 


CHARACTER SIZE 


THEN 6600 
6600 
+(T4-80<0)+(T4-120<0) 
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А2-(К9-1)%56-(К9-2)%54-(К9-3)%34-(К9-4)%30 
PRINT 641,17:К9 
RETURN 


REM RESET CHARACTER SIZE 


IF RND(0)<0.8 THEN 6660 
IF A1«»32 THEN 6660 
PRINT @A1,17:4 

А2-30 

RETURN 
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қ РАСЕ МО: 128 
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K$-REP(L$,LEN(K$)41,0) 
IF L$«»"" THEN 4320 
K$=REP("MASTER",2,5) 
K$=SEG(K$, 1,LEN(K$)-1) 
E$=G$&K$ 
K$="/LOCAL/DATA/" 
K$=REP(L$,LEN(K$)+1,0) 
IF L$<>"" THEN 4380 
K$=REP("MASTER",2,5) 
K$:SEG(K$,1,LEN(K$)-1) 
F$-G$&K$ 


REM 


CALL "FILE",A9,E$,K$ 

IF LEN(K$)>0 THEN 4450 

K1z1 

PRINT "J* *** File was not found on disc. *" 

GO TO 4150 

OPEN. E$; 1, "F",K$ 

OPEN F$;2,"F",.K$ 

READ 41:11, Те, 19, 18,14,51 

DELETE С, Т$ 

DIM C(T1,2),T$(T4) 

READ #1:C,T$ 

S$=SEG(X$,1,T8) 

DELETE IO 

DIM M$(T4) ,U$CT4),V$CT4) W$(TU),19(4),K4(10,2),K2(4,3),10(T1) 
RESTORE 4550 

DATA 7,9,8,11 

READ I9 

К2--200 

PRINT "LYou may choose up to four of the fields below to act as" 
PRINT " keys which will control the resulting order of items in" 
PRINT " the sorted database. The selection of keys is terminated 
PRINT " by responding to a prompt with a CR." 
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FILE 11 


4000 
4010 
4020 
4030 
4040 
4050 


4060 
4070 
4089 
4090 
4100 


4110 
4120 
4130 


4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 


4220 


4230 
4240 


4250 
4260 


4270 


000-6405-02 


REM TARGET LINE FOR OVERLAY APPEND 


OVERLAY OV7 


DELETE H,HO,H1,H2,H3,H4,H5,H6,H7,H8,H9 
DELETE 1,10,11,12,13,14,15,16,17,18,19 
DELETE 9,90,91,92,93,94,95,96,97,98,99 
DELETE K,KO,K1,K2,K3,K4,K5,K6,K7,K8,K9 
DELETE 1$,J$,K$,L$,M$,N$,0$,P$,0$,R$,U$,V$,W$ 


REM 
REM SORTING OVERLAY 
REM 


H8=1 

PRINT "JEnter the name of the LOCAL database you wish to sort." 
PRINT "Database name? HHHHHHHHHH"; 

INPUT L$ 

IF L$z"" THEN 4150 

IF L$z"!M" THEN 9000 

GOSUB 5170 

IF EO THEN 4150 


REM ккк OPEN DATABASE FILES 


CLOSE 
K1=0 


REM CONSTRUCT FILE IDENTIFIERS (F.I.). 
REM L$ CONTAINS DATABASE NAME. E$ AND F$ CONTAIN F.I. 


K$="/LOCAL/INIT/" 
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PAGENO: 130 
ABSTRACT NO: 
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GO TO 4760 | 
PRINT "Is the field to be sorted in ascending (А) or descending" 
PRINT " (D) order? "; 
INPUT I$ 
ЈЕ I$z"" THEN 5000 
GO TO POS("AD",I$,1) OF 5020,5040 
PRINT "J* *** Program will only accept an ""A"" or түрүн. A 
GO TO 4950 
K2(15,3)=1 
GO TO 5050 
К2(15,3)=2 
K2(15,1)=10(K3) 
Ке( 15, 2) +С(КЗ, 1) 
IF C(K3,2)-2 THEN 5090 
K2(15,3)=-K2(15,3) 
18=18+10 
GO TO 5120 
I5=4 
NEXT I5 


REM CALL OVERLAY OV7A 


CALL "UNIT" ‚АЗ 
H$="@DBMPROG/ RECORDKEEP/OV7A" 
GO TO 540 


REM 
REM CHECK THE PASSWORD OR FILE NAME IN L$ 
REM 


Е0-0 

IF LEN(L$)<11 THEN 5240 

PRINT "* *** The пате is longer than ten characters. Try again. №" 
GO TO 5380 

P$=SEG(L$,1,1) 

K6=ASC(P$) 
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4620 17=1 

4630 FOR I5=1 TO T1 

4640 DELETE I$ | 

4650 DIM I$(C(I5,1)) | 

4660 I$=SEG(T$,I7,C(I5,1)) 

4670 IO(I5)=I7 ' 

4680 PRINT USING "ах, Зр пуч 2X 62." 15,16 
4690 I7=I7+C(I5,1)+T8 


4700 NEXT I5 
4710. DELETE I$ 
4720 L$="primary secondary tertiary quanterrary" 


4730 18=1 

4740 FOR 1521 TO 4 

4750 N$=SEG(L$,1I8,19(15)) 

4760 PRINT "JEnter the field number to be used as the ";N$;" key:f"; 
4770 INPUT I$ 

4780 IF I$="" THEN 5110 

8490 КЕМ CHECK FOR NON-NUMERIC CHARACTERS 

4800 FOR I7=1 TO LEN(I$) 

4810 J$=SEG(I$,17,1) 

4820 ІК J$=>"0" AND J$<="9" OR J$=" " THEN 4860 

4830 PRINT "J* *** Previous data entered contained non-numer с date 
4840 PRINT "*** Try again. Я" 

4850 GO TO 4760 

4860 NEXT 17 

4870 REM 

4880 K3=VAL(I$) 

4890 IF K3>0 THEN 4920 

4900 CLOSE 

4910 GO TO 9000 

4920 IF K3<=T1 ТНЕМ 4950 

4930 PRINT "J# XXX The field number is not between 1 апа ";T1;".[*" 
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IF K6>64 AND K6<91 OR K6>96 AND K6<123 THEN 5290 


PRINT "* *** The name does not start with a letter. Try again. 


GO TO 5380 


БОК 1051 TO LEN(L$) 


000-6405-02 


P$=SEG(L$,10, 1) 
K6=POS("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789",P$,1) 
K6-K6«POS("abcdefghijklmnopqrstuvwxyz",P$,1) 
IF K6<=0 THEN 5360 

NEXT IO 

GO TO 5390 

PRINT "* *** The name contains blanks or non alphanumeric "; 

PRINT "characters. *** Try again. *" 

EO=1 

RETURN 
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PAGENO: 132 
ABSTRACT NO: 


51/07-6108/1 


FILE 12 


4000 
4010 
4020 REM --------- ------------------- | --------------------------------4-- 
4030 ; 

4040 OVERLA Y > OV7A 
4050 


4060 IF K2(1,1)<-100 THEN 5130 


MOTO REM BEGINNING OF SORTING ALGORYTHM 
4080 REM 


4090 PRINT "J* Sorting has begun. *" 


4100 REM 
4110 REM чик 01 INITIALIZE 


4120 H1=1 

4130 Нг-Тг 

4140 S=-100 

4150 K5=0 

4160 IF Т2<-Н8 THEN 4920 


4170 REM #XX# Q2 BEGIN NEW STAGE 


4180 H4=H2+1 
4190 H3=H1 
4200 READ #2,H1:U$ 


4210 REM *** 03 COMPARE K AND Ki 


4220 IF H3=H2 THEN 4300 

4230 H3=H3+1 

4240 IF H1=H2 THEN 4810 

4250 IF H4=H1 AND H3=H1+1 THEN 4430 
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READ #2,H3:V$ 
M$=V$ 

GOSUB 5170 

IF K6 THEN 4210 


REM *** Qu COMPARE K AND Kj 


IF H4=H1 THEN 4510 
H4=H4-1 

READ #2,H4:W$ 

M$=W$ 

GOSUB 5170 

IF NOT(K6) THEN 4300 


REM *** Q5 TEST i AND j 
IF NOT(H4>H3) THEN 4480 

REM *** Q6 EXCHANGE RECORDS 
WRITE #2,H3: 

WRITE #2,Н4: 

GO TO 4210 

REM 

WRITE #¿,H1: 

WRITE #2,H3: 

H1=H1+1 

GO TO 4170 

REM 


WRITE #2,H1: 
WRITE #2,H4: 
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REM TEE OT PUSH ON STACK 


IF H2-H4=>H4-H1 THEN 4650 

IF H8=>H4-H1 AND H4-H1=>H2-H4 THEN 4810 

IF H4-H1>H8 AND H8=>H2-H4 THEN 4750 

К5=К5+1 

IF К5=1 ТНЕМ 4610 

FOR 11=К5-1 ТО 1 ЗТЕР -1 
K4(11+1,1)=K4(11,1) 
K4(114+1,2)=K4(11,2) 

NEXT 11 

K4(1,1)=H1 

K4(1,¢)=H4~1 

H1=H4+1 

GO TO 4170 

IF H8=>H2-H4 AND H2-H4=>H4-H1 THEN 4810 

IF H2-H4>H8 AND H8=>H4-H1 THEN 4770 

К5=К5+1 

IF K5=1 THEN 4730 

FOR I1=K5-1 TO 1 STEP «1 
KH(I1+1,1)=K4(I1,1) 
K4(11+1,2)=K4(11,2) 

NEXT 11 

K4(1,1)=H4+1 

K4(1,2)=H2 

H2=:H4-1 

GO TO 4170 

H1=H4+1 

GO TO 4170 

Н2-Нч-1 

GO TO 4170 


REM #XX Q8 PULL OFF STACK 


IF K5<=0 THEN 4920 
Н1-К4(1,1) 
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H2=K4(1,2) 

K5=K5-1 

IF K5<=0 THEN 4170 

FOR I1=1 TO K5 
K4(11,1)=K4(11+1,1) 
K4(11,2)=K4(11+1,2) 

NEXT 11 

GO TO 4170 


REM XXX 09 INSERTION SORT 


IF H8<=1 THEN 5130 
IF T2<2 THEN 5130 
H4=1 

H4=H4+1 

IF H4>Te THEN 5130 
H3zH4-1 

READ #2,H4:U$ 

READ #2,H3:M$ 
GOSUB 5170 

IF K6 THEN 4960 
WRITE #2,H3+1:M$ 
H3zH3-1 

IF H3>0 THEN 5080 
WRITE #2,1:U$ 

GO TO 4960 

READ #2,H3:M$ 
GOSUB 5170 

IF NOT(K6) THEN 5030 
WRITE #2,Н3+1:0$ 
GO TO 4960 


REM XXX 010 END OF SORTING ALGORYTHM 
REM 


CLOSE 
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5160 GO TO 9000 


5170 REM SUBROUTINE TO COMPARE KEYS 

5180 REM К2(1,3) * 1: 1 THEN ALPHA,ASCEND * i= 2 THEN ALPHA,DESCEED 
5190 REM % 1=-1 THEN NUM,ASCEND * i=-2 THEN NUM, DESCEND 
5200 K6=0 

5210 FOR I2=1 TO 4 

5220 IF K2(I2,1)<-100 ТНЕМ 5420 

5230 DELETE N$,K$ 

5240 DIM N$(Ke(I2,2)),K$(K2(I2,2)) 

5250 N$=SEG(M$,K2(12,1),K2(12,2)) 

5260 K$=SEG(U$,K2(12,1),K2(12,2)) 

5270 IF Ke(Ie,3)€0. THEN 5340 

$280 REM ALPHANUMERIC FIELD COMPARISON 
5290 IF K$=N$ THEN 5430 

5300 K6=K$>N$ 

5310 IF K2(12,3)=1 THEN 5440 

5320 K6=K$<N$ 

5330 GO TO 5440 

5340 REM NUMERIC FIELD COMPARISON 

5350 H5=VAL(K$) 

5360 H6=VAL(N$) 

5370 IF H5=H6 THEN 5430 

5380 K6=H5>H6 

5390 IF K2(12,3)=-1 THEN 5440 

5400 K6=H5<H6 

5410 GO TO 5440 

5420 І2=4 


5430 NEXT 12 
5440 КЕТОКМ 
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FILE 13 


4000 TARGET LINE FOR OVERLAY APPEND 


4010 

ე <_--_-_-–_–_-_-–-_-_______–__ება-.აე € 
4030 RE 

4040 RE OVERLAY 

4050 RE 


4060 DELETE A,B,A$,B$,C$,D$,L$,K$,P$ 

4080 PRINT "LIRECORDKEEPING & SORTED REPORT GENERATOR" 

4090 PRINT "JIhis program will maintain an inventory record and "; 

4100 PRINT "generate_ sorted reports at the user's request. At initial Ns 
4110 PRINT "usage, the user must initialize the disc file through use"; 
4120 PRINT "of the file initialization " 

4130 PRINT "routine." 

4140 CALL "UNIT",A9 

4150 PRINT "JEnter the desired database family: ; 
4160 PRINT "ННННННННННННННННННННН"; 

4170 INPUT Кб 

4180 IF K$z"" THEN 4150 

4190 K1=POS(K$,":",1) 

4200 IF K1<>1 THEN 4240 

М210 PRINT MX *** A family name must preceed any password."; 

4220 PRINT " Try again. *" 

4230 GO TO 4150 n 

4240 IF K1<LEN(K$) THEN 4280 

4250 PRINT "* *** A password must follow the colon, if present."; 

4260 PRINT " Try again. *" 

4270 GO TO 4150 B 

4280 IF K1>0 THEN 4310 

4290 L$=K$ 

4300 GO TO 4320 


4310 L$=SEG(K$,1,K1-1) 
4320 J$="Family name" 
4330 GOSUB 4720 

4340 IF EO THEN 4150 


000-6405-02 TEKTRONIX 4051 PROGRAM 


PAGENO: 138 ` 
ABSTRACT NO: 


RECORDKEE? II 51/07-6108/1 


IF К1<=0 THEN 4400 

L$=SEG(K$,K1+1,LEN(K$)-K1) 

J$="Password" 

GOSUB 4720 

IF EQ THEN 4150 

G$="@DATABASE/"&K$ 

F$=G$4"/MASTER/INIT" 

CALL "FILE",A9,F$,K$ 

IF LEN(K$)>0 THEN 4460 

PRINT "J* *** No files found under that family name. *" 

GO TO 4150 ~ 

DELETE X$ 

OPEN F$;1,"R",K$ 

CLOSE 

DIM Y$(1),X$(135),W$(22),8$(70) , R$(55) ,P$(55) ,Q$(75) 
=" 

ха 

X$=REP(0$,1,0) 

X$=REP(" ",1,0) 


REM ккк OUTPUT DEVICE CHOICE 
REM un PRIMARY ADDRESS 32 FOR SCREEN AND 55 FOR PRINTER 


А1=32 

A2=30 

H1=0 

PRI "дро you want reports printed to screen(0) or printer (1): 
INPUT H1 

IF H1<>1 AND H1<>0 THEN 4590 

IF H1=0 THEN 4660 

PRINT "JEnter the primary address of the printer: "; 
INPUT A1 

А2=60 

DELETE 09,25 

DIM U$(133),2$(75),A(12) 

Н$="" 


"e 
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DATA 1,1,2,6,3,4,4,5,5,7,6,5 
READ A 
GO TO 9000 


REM 
REM CHECK THE PASSWORD OR FILE NAME IN L$ 
REM 


Е0-0 
IF LEN(L$)<11 THEN 4790 
PRINT "* *** ";J$;" is longer than ten characters. Iry again. * 
GO TO 4930 ~ 
P$=SEG(L$,1,1) 
K6=ASC(P$) 
IF K6>64 AND K6<91 OR K6>96 AND K6<123 THEN 4840 
PRINT "* XXX ":J$;" does not start with a letter. Try again. *" 
GO TO 4930 = 
FOR 10-1 TO LEN(L$) 
P$=SEG(L$, 10,1) 
K6=POS("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789",P$,1) 
K6zK6«POS("abcdefghijklmnopqrstuvwxyz",P$,1) 


IF K6<=0 THEN 4910 
NEXT IO 
GO TO 4940 
PRINT MX *** ";J$;" contains blanks or non alphanumeric ms 
PRINT "characters. *** Try again. *" 
Е0-1 т Ш 
RETURN 
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FILE 14 


REM *** BEGINING OF THE 4907 DISC FILE INITIALIZATION 
CALL "MOUNT",0,"" 
REM *** REQUEST LIBRARY TITLE FOR DATABASE DEFINITION 


DELETE A$ 

DIM A$(10) 

PRINT "LI TAPE DATABASE TO DISC DATABASE" 
PRINT "I CONVERSION PROGRAMJJ" 
PRINT "JInput database family name: "; — 
INPUT A$ 

IF A$="" THEN 179 

B$="@DATABASE/"&A$ 

B$=REP("/MASTER" ,LEN(B$)+1,0) 


REM er DETERMINE IF THE NAME GIVEN IS PREVIOUSLY DEFINED 


C$=B$4"/INIT" 

CALL "FILE",0,C$,2$ 

IF LEN(Z$)=0 THEN 280 

PRINT "J* XX Files already exist under that family папе. Ў" 
GO TO 170 


REM En. DEFINE FILEDEF TO CONTAIN RECORD DEFINITION 
REM WER DEFINE DATABASE TO CONTAIN RECORDS 


DIM K$(1) 

L$="BU" 

PRINT "JDo you want this data base to be a private file? (Y/N): " 
INPUT K$ 

GO TO POS("DYN",K$,1) OF 320,360,440 

GO TO 320 

PRINT "JErter a file Password (1 to 10 characters must start with 
PRINT " a leter but the remaining characters can be alphanumeric. 
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PRINT "Password is: "; 

INPUT J$ 

IF J$="" THEN 360 

J$=REP(":",1,0) 

B$zREP(J$,POS(B$,"/MASTER",9),0) 

L$-"BR" 

FIND 1 

F$z" 

INPUT €33:K1 

T1=K1+1 

DIM C(T1,2),D(K1,2) 

INPUT @33:D,K2,T9,T8,K4,S1,U$,S$ 

C(1,1)=5 

Cia 4281 

FOR К0-1 TO КІ 
C(K0+1,1)=D(K0,1) 
C(K0+1,2)=D(K0,2) 

NEXT KO 

Т4=72 

DIM T$(72) 

T$=SEG(U$, 1,72) 

І2-0 


КЕМ CREATE DISC FILE AND TRANSFER TAPE DATA TO DISC FILE 


C$=B$8"/DATA" 

CREATE C$,L$;1,T4+5 

OPEN C$; 1,"F",K$ 

WRITE #1,1:"DATABASE IS EMPTY" 
CALL "REWIND",1 


REM 
DELETE V$ 


DIM V$(T4) 
PRINT "JEnter the number of data files on tape: "; 
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RECORDKEEP II 


700 INPUT K9 

710 FOR K0=2 TO K9 
720 ON EOF (0) 
730 FIND KO 


THEN 830 


740 | INPUT @33:V$ 
750 IF LEN(V$)=0 THEN 740 


760 T2=T2+1 
770 E$=STR(T2) 


780 G$=SEG(F$,1,5-LEN(E$) ) 
790 E$=REP(G$,1,0) 
800 V$=REP(E$,1,5) 
810 WRITE #1,T2:V$ 


820 GO TO 740 
830 NEXT KO 


PAGENO: 142 
ABSTRACT NO: 
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840 REM WRITE HEADER FILE ("INIT") FOR DISC DATABASE ("DATA") 


850 LOz2*T1*104T446 MAX 60 


860 C$zB$&"/INIT" 


870 CREATE C$,"U";LO,O 
880 OPEN C$;2,"F",K$ 
890 WRITE 82:11, Та, 19, 18, 14, 51 


900 WRITE #2:C,T$ 
CLOSE 
PRINT "gx HEE 
END წ 
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ABSTRACT NUMBER | 
TEKTRONIX/HEWLETT PACKARD 488 INTERFACE 
51/00-6117/0 
1/80 8K 


AUTHOR Robert Cope & Michael Bowman PERIPHERALS 
` Atlantic Analysis Corporation Hewlett Packard 9835 or 9845 


ABSTRACT 


Statements: 70 & 77 
Files: 1 ASCII Program 
1 ASCII Text 


This program transfers messages input from the keyboard of an H-P 9835 to a 
TEKTRONIX 4051 and vice versa. The purpose is to demonstrate the capability 
of the H-P 9835 and TEKTRONIX 4051 to communicate using the standard IEEE-488 
Interface bus and to demonstrate the interrupt capabilities and limitations of 
both computers. The configuration simulates an interconnection between a 
TEKTRONIX 4054 and a Hewlett Packard 9845 which were not available at the time 
the waluation was conducted. 


Communications using the 488 bus will make it possible to offload the graphics 
processing load in ECLIPS tactical display systems to an intelligent graphics 
display which will free theother computer for message processing and textual 
information display. The interrupt capabilities of the machines will make it 
possible for each processor to devote full time to their respective tasks, 
being interrupted only to service operation requests or intercomputer 
communications needs on a time available basis ensuring that the high priority 
message processing is never neglected. 


The complete evaluation is included as part of the documentation. 


The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc., assumes no responsibility and 
shall have no liability, consequential or otherwise, of any kind arising from 
the use of this program material or any part thereof. 
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Operation 


The attached report contains the equipment configuration, operating 
instructions and methodology. Please refer to it. 


Tape Structure 


The 4050 Program and the H-P program are both included on tape. However, 
to input and display the latter on the 4050 Screen, a 4051RU6 Editor ROM 
Pack is required or the following program will have to be keyed in to read 
it in and display it. 


INIT 
DIM B$(8000) 

BT EOF (8> THEN 688 
С ЕСНК (13) 

FIND г 

INPUT @33:A$ 
AS=ASECS 

B$=B$&ñ$ 

GO TO 568 

PRINT B$ 

END 
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3 GO TO 100 
4 GOSUB 368 


100 


110 
120 
130 
140 
142 
144 
146 
156 
155 
160 
170 
171 
180 
198 
200 
210 
220 
230 
240 
250 
260 
262 
264 
266 
270 


280 
299 


300 
310 
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REM 9835- 4051 COMS 488 


'INIT 


SET KEY 
ON SRQ THEN 470 
DIM Аб (288) ,85 (288) ,15 (80) ,ES (80) 
F=0 
T=0 
Вед 
C$="DISPLAY FULL - MAKE COPY - PRESS KEY TO CONT" 
ES=" " 
GOSUB 510 
PRINT "1" 
FOR I-1 ТО 5 
PRINT "MAIN PROGRAM EXECUTING" 
NEXT I 
MOVE 0,76 
PRINT A$ 
MOVE 0,45 
PRINT BS 
IF F<>1 THEN 300 
MOVE 0,11 
PRINT CS 
PRINT "G" 
FOR X-1 TO 169 
NEXT X 
F-f 


REMUT C 
GOSUB 519 


IF ТО] THEN 320 
GOSUB 420 


TEKTRONIX 4051 PROGRAM 


TITLE 


TEKTRONIX/HEWLETT PACKARD 488 INTERFACE 
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IF R<>1 THEN 335 
GOSUB 568 

FOR 1=] TO 500 
NEXT I 

PAGE 

GO TO 170 


REM SUB KEY INTERUPT 


MOVE 0,9 

INPUT K$ 

T=1 

ТЕ LEN(A$)+LEN(K$)<288 THEN 410 
F=1 

GO TO 170 


REM SUB TRANSMIT 
PRINT @20:KS 
AS=AS&KS 

Тед 

RETURN 

REM SRQ INTERUPT 
POLL M,W;20 

R=1 


RETURN 


REM SUB STRING CLEAR 


A$="TRANSMITTED TO 9835 " 
B$="RECEIVED FROM 9835 "БЕС 
ES= " " 


RETURN 


ABSTRACT NO: 
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TITLE 


TEKTRONIX/HEWLETT PACKARD 488 INTERFACE 


REM SUB RECEIVE 


INPUT 020:15 

IF LEN(BS)+LEN(IS)<288 THEN 630 
F=1 

Е5=15 

К=0 

RETURN 

BS=BS&IS 

R=0 

RETURN 

END 


000-6405-02 


PAGE NO: 5 
ABSTRACT NO: 


51/00-6117/0 


TEKTRONIX 4051 PROGRAM 


PAGENO: 6 
ТИСЕ АВЅТВАСТ МО: 


TEKTRONIX/HEWLETT PACKARD 488 INTERFACE 51/00-6117/0 


! 9835-4051 COMS 488 

ON INT #7215 CALL Tekservice 
CONTROL MASK 77'"00110000" 

CARI! ENABLE 7 

COM СЕ, > П; КФСВОЈ» Fr Тектгъсво 2 


50 SET TIMEOUT 7;109 


111 


ON КЕП CALL Kesservice 


LISF "MAIN FROGRAM EXECUTING’ 


REM 

REM 

REM 

DISF CHR#(13) 

GOTO 130 
ЕМП 

SUE Tekservice 

REEF 

IF TIME 00Т7(7220 THEN 270 
STATUS 7#Stat 

IF BIT(Stat+4) THEN CALL Input 


IF БІТ(бізі»5) THEN CALL Outrut 
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GOTO 290 


DISF 'TIMEOUT - MESSAGE NOT SENT" 


STOF 


CARI ENABLE 7 


SUBENT 


SUE Clear(S) 


IF 851 THEN 430 


FOR I=2 TO 10 
FRINT USING "#eK"3CHR# (27) "Н" 
FRINT СІМСІ):85РА(ВО) 
NEXT I 
L=2 
SUBEXIT 
430 FOR I=11 TO 20 
440  FRINT USING "+»R">5CHR$(27)2"H" 
FRINT LIN(I)+SFA(80) 
NEXT I 
п-11 
БОВЕМІІ 
SUB Inrut 
COM СзЕ, 01, КФСВОЗ,Р, Тек. іпэС8032 
ENTER 7s ТеКктг 
FRINT USING '4»N';CHR$C27)0&'H"* 
FRINT LIN(L)sTekirn$ 
L=L+1 


IF L>10 THEN CALL Clesr(1) 
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SUBEND 

SUR QOutrut 

COM СУЕ» »П,КЪГВО?,Р 

DUTFUT 7 КУ 

Еко 

DISP СНЕФ(12) 

FRINT USING "#sK"FCHR$(27)8"H" 
FRINT SFA(SO) 

PRINT USING '$oN'SCHR$(C272&'H*' 
РКІМТ ІМП) КФ 

Крка 

Пейяі 

IF Пепо THEN CALL С1езг(о) 
БОВЕМІ 

SUB Keyservice 
COM С»Е» »,Пэ»К%ГВОП»Р 

F=F41 


КІР + ვეი. 


FRINT USING '£$oHR'SCHR$(O7DOR&'H' 


FRINT SFA(CGO) 

PRINT USING '$;R'SCHR$(IZ)&'H' 
FRINT КФ 

IF СЕМСКФ) 279 THEN 810 

IF NUMCKRSCP es РЈ) с>255 THEN SUBEXIT 
REQUEST 7364 


SUEENI: 
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APPENDIX 


EVALUATION OF AN IEEE-488 
STANDARD INTERFACE FOR 
INTER COMPUTER COMMUNICATIONS 
BETWEEN THE HEWLETT-PACKARD 9835 
AND THE ТЕКТВОМІХ 4051 COMPUTERS 


1. PURPOSE 


The. purpose of this evaluation is to demonstrate the capability of the Hewlett- 
Packard 9835 and Tektronix 4051 to communicate using the standard IEEE-488 
Interface bus and to demonstrate the interrupt capabilities and limitations of both 
computers. This configuration simulates an interconnection between Tektronix 4054 
and Hewlett-Packard 9845 which were not available at the time the evaluation was 
conducted. Communications using the 488 bus will make it possible to off load the 
graphics processing load in ECLIPS tactical display systems to an intelligent graphics 
display such as the Tektronix 4054. This will in turn free the Hewlett Packard 9835 or 
9845 computer for message processing and textual information display. The interrupt 
capabilities of these machines will make it possible for each processor to devote full 
time to their respective tasks, being interrupted only to service operation requests or 
intercomputer communications needs on a time available basis ensuring that the high 
priority message processing is never neglected. The facilities of the NOSC Procal Lab 
as well as technical support provided by Mr. Jim Grant (NOSC), Hewlett-Packard and 
Tektronix were instrumental in the successful completion of this project. 


2. EQUIPMENT CONFIGURATION 


For the purposes of this evaluation, a Hewlett-Packard 9835 desktop computer 
was connected to a Tektronix 4051 graphic system using the Hewlett-Packard 98034A 
HP-IB Interface (See Figure 1). The HB-IB bus is based on the IEEE-488 Standard. In 
addition, each computer was equipped with a printer for hard copy program listing. The 
HP-9835 was equipped with the 98332A I/O ROM Package. The HP-IB Interface was 
set to select code 7, the talk/listen address was set to 20, and the system controller 
switch was in the (off) position. 


3. OPERATIONAL DESCRIPTION 


The software written for this evaluation was designed to transfer messages input 
from the keyboard on one computer to the display screen of the other computer. 
Listings are included in the Appendix. On the 4051 screen, the transmitted messages 
are displayed on the upper half and received messages are displayed on the lower half of 
the display. The order of display is reversed on the 9835. Messages sent from the 9855 
may be 80 characters in length. As the message is typed in it is displayed at the top of 
the screen. Pressing the (execute) key causes the message to be sent to the 4051 and 
also displayed on the 9835 screen. 


The lack of a keyboard interrupt capability on the 5051 makes it necessary to 
press special function key (1) to interrupt the processor for message processing. If the 
message to be sent is less than 25 characters, the system processing need not be 
interrupted until the message has been typed in because the keyboard has a 26 
Character buffer. The message is typed in and special function key (1) is pressed. The 
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message will appear at the bottom of the screen and may be edited at this time. To 
send the message the (return) key is pressed. The message will then be transmitted and 
displayed. 


If the message is greater than 26 characters then special function key (1) is 
pressed first; then the message, up to 80 characters, is typed in. The (return) key is 
pressed to transmit and display the message. 


To demonstrate that a main program is operating until interrupted, the 
Tektronix 8051 periodically clears the screen and re-displays the message "MAIN 
PROGRAM EXECUTING" along with the current transmitted and received messages. ' 
The HP-9835 flashes the same message on the bottom display line of the CRT. Since 
the 9835 display screen is a refresh type display it is not necessary to periodically clear 
the entire screen. 


4. SOFTWARE CONSIDERATIONS 


In order to implement communications on the IEEE-488 bus it is important to 
understand the bus architecture as well as the interrupt capabilities and limitations of 
each computer. 


4.1 JEEE-488 Bus 


The IEEE-488 bus consists of 16 lines divided into three functional groups; an 
eight line data bus, three line transfer bus, and a five line management bus. Data and 
device address commands are transferred bit parallel, byte serial on the data bus. The 
transfer bus is used by devices on the bus to time the transfer of data. Data is 
transferred at the rate oí the slowest device on the bus. The maximum transfer rate is 
256K bytes/second or 2.048 million bits/second. This may be compared to the RS-232 
interface with an upper transfer limit of approximately 9600 bits/second. The 
management bus is used by the system controller to configure the bus and by devices on 
the bus to gain the attention of the system controller. 


For a complete description of the bus the reader is directed to the IEEE Standard 
#488-1975, the Tektronix 4050 series Reference Manual, and the Hewlett-Packard 
HP-IB Interface Installation and Service Manual. The latter two references will 
describe the bus functions implemented on the respective computers. 


Tektronix and Hewlett-Packard use negative = true or | logic on the 488 bus. 
This means that a negative voltage is applied to a line in order to pull the line true. 
The bus is controlled by a "system controller" and all devices on the bus are either 
talkers or listeners, each having a talk/listen address. The system controller designates 
a talker or a listener by pulling true the ATN (attention) line on the management bus 
and then sending the appropriate addresses on the data bus. The designation as a talker 
or listener will cause the addressed devices to execute either an input or output 
operation as required. If a device needs the attention of the system controller it will 
pull the SRQ (service request) line on the management bus true. This causes the system 
controller to poll the devices on the bus to determine the source of the SRQ. In 
response to the poll the requesting device sends a status byte which the system 
controller uses to determine the proper action to take. 


4.2 Tektronix 4051 


Unlike the HP-9835, the 4051 does not have the ability to relinquish system 
contro! of the bus to another controller. Therefore, it is important to keep in mind that 
the 9835 must be simply a device on the bus. In this test program four program 
statements are involved in the handling of bus communications and interrupts. These 
are: 


ON SRQ THEN - This statement sets an interrupt condition which calls an inter- 
rupt service routine whenever the SRQ line is pulled true. | 


POLL М, W: 20 - This statement is usually part of the interrupt service routine. 
On execution of this statement the SRQ will be reset and the list of device addresses 
following the colon will be polled one at a time. The order in the address list of the 
requesting device will be returned in variable M and the status byte sent in answer to 
the poll will be returned in variable V. А 

INPUT (020: AŠ - This statement is executed when the 4051 requests input from 
device 20. The device will be sent its talk address and the data sent by the device will 
be returned in AS. 


PRINT (820: AŠ - This statement is executed when the Tektronix 4051 needs to 
send data to device 20. The device (HP-9835) will be sent its listen address and the 
data in AŠ will be transferred to the device. 


4.3 Hewlett-Packard 9835 


The HP-9835 with extended МО ROM is a versatile user of the 488 interface 
capable of acting as a system controller or a device. In this test program there are 
eight program statements involved with handling interrupts and bus communications. 
These are: 


ON INT #7, 15 call service - This statement sets an interrupt condition with a 
priority of 15 (HIGH) which will call the subroutine named service when an interrupt 
signal is received on select code 7. 


CONTROL MASK 7; "00110000" - This statement indicates to the interface card 
at select code 7 the conditions under which an interrupt should be generated. In this 
case bits 4 and 5 are set which indicates that an interrupt should be generated when 
addressed as a talker or a listener on the 488 bus. 


Card Enable 7 - This statement sets the interface at select code 7 to respond to 
interrupts. It must be executed after each interrupt is generated to enable another 
interrupt. This statement must not be executed more than once between interrupts or 
system failure will result. 


-ON KBD CALL service - This statement sets the keyboard interrupt condition 
which calls the subroutine named service every time a key is pressed and also saves the 
value of the key pressed in an 80 character buffer called KBDS. 


STATUS 7; S - This statement queries the interface at select code 7 and returns a 
status byte in variable S which indicates, in this case, whether the computer has been 
addressed as a talker or a listener. 


ENTER 7; TŠ ~ This statement is executed when data is to be received on the 488 
bus at select code 7. The data on the bus is returned in TS. 


OUTPUT 7; K$ - This statement is executed when data is to be transmitted over 
the 488 bus with K$ containing the data. 


REQUEST 7; 64 - This statement is executed when the 9835 requires the attention 
of the system controller. The SRQ line will be pulled true and the response byte, 64, 
will be sent in answer to a serial poll by the system controller. The response byte must 
have bit six set, that is, have a value in the range 64 to 127 in order for the SRQ to be 
pulled true. If a request is executed with bit six of the response byte = 0 then the 580 
line will be reset to logical 0. 


5. PROGRAM DESCRIPTIONS 


The Appendix contains program listings of the software developed during this 


evaluation. Each program is divided into three main sections. The main program 


contains the code for start up and the executive loop which simulates an ongoing 
program in execution. The interrupt service routines contain the code executed only 
when an interrupt condition exists and processing outside the main program is required. 
The subroutines contain the code for those routines called for communications handling 
or display management. 


5.1 Tektronix 4051 


The main program in the Tektronix 4051 (See Figure 2) sets the interrupt 
conditions, initializes variables and then enters into the executive loop. The executive 
loop prints the screen, checks the status of the screen full flag, clears the screen and 
then begins again. This continues until an interrupt occurs. 


When special function key (1) is pressed an unconditional! branch is executed to the 
special function key service routine (See Figure 3). The SFK routine inputs the message 
from the keyboard, sets the transmit flag, checks for a full screen and continues 
execution at the beginning of the executive loop. Note that this is not truly a keyboard 
interrupt since the 4051 does not provide that capability. 


When the SRQ line has been set to true by the HP-9835, the Tektronix 4051 
generates a true interrupt which branches to the SRQ service routine (See Figure 3). 
The SRQ service routine polls the bus, sets the receive flag and returns to the program 
line where the interrupt occurred. . 

If the screen full flag is set then the screen full message is printed and a short 
wait is entered to allow hard copy. The display strings are cleared and if a message has 
been received when the screen was full, that message is added to the display string. 
The screen full flag is reset to 0 and the transmit flag is checked next (See Figure 4). 


H the transmit flag is set, this indicates a message has been input from the 
keyboard and execution branches to the transmit subroutine (See Figure 4). 


The transmit subroutine transmits the message entered from the keyboard to the 
433 bus and adds the message to the display string. The message will be displayed on 
the next pass made through the executive loop. The transmit flag is reset to 0 and 
execution returns to the executive loop where the receive flag is checked. 


START 


ON SRQ 
CALL SRQ 
INTERRUPT 


ON SF KEY I 
GO TO KEY 
INTERRUPT 


START EXEC 
PRINT SCREEN 


GO SUB 
RECEIVE 


WAIT 500 
CLEAR SCREEN 


Figure 2. TEK 4051 MAIN PROGRAM 
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SF KEY 
INTERRUPT 


MOVE CURSOR 
TO BOTTOM 
OF SCREEN 


INPUT К5 


SET 
TRANSMIT FLAG 


SCREEN М SET 
OVERFLOW SCREEN FULL 
ЖК FLAG 


GO TO TOP 
OF 
EXEC 


SRQ 
INTERRUPT 


POLL BUS 


SET 
RECEIVE FLAG 


RETURN 


Figure 3. TEK 4051 INTERRUPT SERVICE ROUTINES 


SUB CLEAR 


PRINT 
“DISPLAY FULL" 
CLEAR FLAG 


RING BELL 
WAIT 100 


CLEAR 
DISPLAY $ 


RETURN 


SUB 
TRANSMIT 


PRINT KS 
TO DEVICE 
20 


ADD KS 
TO DISPLAY $ 


CLEAR FLAG 


RETURN 


SUB RECEIVE 


INPUT IS 
FROM 
DEVICE 20 


SET 
SCREEN FULL 
FLAG 


ADD !$ 
TO DISPLAY 


RETURN 


Figure 4. TEK 4051 SUBROUTINES 


H the receive flag is set indicating that the 9835 has a messape pending, the 
executive releases control to the receive subroutine (See Figure ს) The receive 
subroutine inputs the message from the 588 bus, checks for a screen full condition, and 
adds the message to the display string. The receive flag is reset to 0 and execution 
returns to the executive loop which goes on to perform a new display. 


The reader should realize that this set of programs was developed very rapidly to 
demonstrate a capability. A few improvements are suggested here for future 
consideration. 


1). Since the Tektronix special function key is an unconditional and overriding 
branch in program execution (It will even interrupt an input statement) it 
would be necessary to turn off the key using the "set no key" statement 
whenever the processor is engaged in any operation other than the executive 
loops. 


2). Тһе input of a message would be better accomplished on the occasion of the 
interrupt rather than returning to the executive loop first. The interrupt 
routine would not only set the appropriate flag but also bring in the message 
for further processing at a scheduled time. 


3). Ап improvement in response to mesages both transmitted and received on 
the Tektronix could be gained by moving the flag checking code to the 
beginning of the executive loop. 


5.2 HP-9835 


Like the Tektronix 4051, the main program for the HP-9835 (See Figure 5) 
initializes variables and sets the interrupt conditions before beginning the executive 
loop. The loop is very simple, in this case only displaying and clearing the "MAIN 
PROGRAM EXECUTING" message. All other conditions are handled by interrupt. 


When a key is pressed an interrupt is generated which branches program execution 
to the key service routine (See Figure 6). This routine adds the key stroke to the 
message string, displays the message at the top of the screen and as long as the 
(execute) key has not been pressed returns to program execution where the interrupt 
occurred. If the key pressed was the (execute) key then the SRQ (service request) line 
is set true before returning to the point of interruption. 


When the Tektronix 4051 receives an SRQ true signal, the HP-9835 is addressed as 
a talker. When the HP-9835 is addressed as a talker or a listener, an interrupt is 
generated which results in program execution branching to the Teksevice routine (See 
Figure 6). This routine examines the status of the interface card to determine the 
reason for the interrupt. Program execution then branches to either the input 
subroutine or output subroutine depending on the whether the HP-9835 was addressed as 
a listener or a talker. After the appropriate routine has been executed and control 
returns to the Tekservice routine, a card enable statement is executed and program 
execution returns to the point of interruption. | 


When the output routine is called the message waiting to ђе transmitted is sent on 
the 483 bus and received by the 4051. The message is printed on the screen and the 
transmit string is cleared. The subroutine then checks for a full screen. H the screen is 
full, the clear screen routine is called and then in either case execution returns to the 
calling program (See Figure 7). 


START 


INITIALIZE 


INTERRUPT 


CALL 
TEKSERVICE 


ON KEYBOARD 
INTERRUPT 


CALL 
KEYSERVICE 


BEGIN EXEC 


„DISPLAY 
MAIN PROGRAM 
EXECUTING” 


CLEAR DISPLAY 
LINE 


GO TO 
BEGINNING 
EXEC 


Figure 5. HP 9835 MAIN PROGRAM 
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INTERRUPT INTERRUPT 
TEKSERVICE KEYSERVICE 


GET STATUS ADD 


KEYSTOKE 
TO Ks[P,P] 


OF 
INTERFACE 


HOME CURSOR 
CLEAR LINE 


HOME CURSER 
PRINT KS 


RETURN 
RETURN 


SET SRQ 
TRUE 


RETURN 


Figure 6. HP 9835 INTERRUPT SERVICE ROUTINES 
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ENTER TEKINS 
FROM BUS 


PRINT 
TEKINS 


Y 
CALL CLEAR 
| N 


RETURN 
START CLEAR 


CLEAR OUTPUT 
SCREEN 


CLEAR INPUT 
SCREEN 


START OUTPUT 


ТКАМ5МІТ 
KS ON BUS 


HOME CURSOR 
CLEAR LINE 


PRINT KS 


CLEAR KS 


CALL CLEAR 


Figure 7. HP 9835 SUBROUTINES 
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When the input routine is called, the message from the Tektronix 4051 is input and 
printed on the screen. A screen full check is done and if full the clear screen 
subroutine is called. Execution then returns to the calling program, Tekservice (See 
Figure 7). 


When the clear screen subroutine is called it first checks to see which screen is 
full and then clears that screen. Execution then returns to the calling program. 


One possible enhancement for the HP-9835 software is worth noting. The 
keyboard interrupt should be disabled using the "off KBD" statement after the (execute) 
key signals the desire to transmit a message. 


The interrupt should then be reenabled after the message has been transmitted. 
As the program stands a new message should not be entered until a beep is heard after 
pressing (execute) on the Hewlett-Packard 9835. 


6. CONCLUSIONS 


This evaluation has demonstrated the capability and feasibility of connecting the 
HP-9835 and the Tektronix 4051 using the IEEE-488 standard interface. The interrupt 
capabilities of both machines have been explored and utilized in a workable system. 
Based on the success of this evalution and the knowledge of each machine's structure, 
there is little doubt that it is possible to develop a communicating system using the 488 
bus. 


The capabilities are extant in both machines for programmable translation of 
input and output data streams. It should therefore be possible to receive a program 
from the Tektronix and store it on the Hewlett-Packard disk, retrieve it, and transmit 
it in a useable form back to the Tektronix. 


This evaluation has indicated that a greatly improved ECLIPS could be developed 
using the Tektronix 4054 and Hewlett-Packard 9845 with the standard IEEE-488 
interface used as a means of system Communications. By using interrupts, the HP-9845 
could insure that neither the user nor the Tektronix 4054 could lock out information 
being entered by the communications buffer. The architecture of the Tektronix 4054 
does, however, allow the user to tie up the system which is acceptable since the 
Hewlett-Packard can hold any pending data until the Tektronix is free to process again. 


The possibility of connecting computers on the 488 bus means that up to 14 HP 
computers could be tied together with a Tektronix controller (according to the 
standard). Only one Tektronix computer may be connected to any one bus since only 
one controller may be on a bus and the Tektronix computer does not have a feature 
which allows it to become a device instead of a controller. However, a system may be 
put together with a number of IEEE-488 buses (up to 14 using an HP-9845) with a 
Tektronix connected to each separate bus. Figure 8 shows a possible configuration 
where an HP computer coordinates a group of IEEE-888 buses which each have a 
Tektronix controller. With the advent of off-the-shelf fiber optics for the |ЕЕЕ-488 
link available from Hewlett-Packard, systems may be tied together over long distances 
using this high speed interface. Figure 9 shows a possible next generation ECLIPS suite 
with fiber optic links between three systems. 
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. 


To sum up, the |ЕЕЕ-488 bus holds great potential for multi-computer systems 
consisting of off-the-shelf desktop computer technology. Any computer which supports 
the IEEE-488 interface is a candidate for inclusion into a system. 
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ыз SET ТЪМЕН 77100 


120 ON EBD CALL Eevservicc 


210 BEEP 

220 IF TIME ОЦТСУЈ РО THEN УДО 

250 STATUS УШ ЖАЯ 

240 JF Bli¢stat.,4) THEN гр | inet 
250 IF БІТ(<4а%.5) THEN LALL Guteur 
250 GOTO 290 


270 DISP "TIMECIAT - mMittzo-zs NAT ENT" 


300 SLIBEND 
210 SUB Clear(S) 


350 IF 541 THEM 430 
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SUBEXIT 

FOR I-11 To 20 

FRINT USING "ке CHRE (27) 20H" 
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NEXT І 
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SUBENL: 

SUB Inrut 
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PRINT LIN(L)5 Teking 

L=L+i 


JF 1210 THEN CALL (lear) 
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OUTPUT 7:K$ 
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DISF CHR$(12) 
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PRINT БРАВО) 
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PRINT LIN(D):K$ 

Keen 
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ABSTRACT NUMBER 
20mA Current Loop Interface 51/00-6118/0 


ORIGINAL DATE REVISION DATE MEMORY REQUIREMENT 
3/80 8K 
AUTHOR William M. Retallack PERIPHERALS 
HERR H. „Taylor co Model 33 Teletype 


ABSTRACT 


Files: 1 ASCII Program 
Statements: 52 


One of the many different tasks we have in data reduction is digitizing 
analog data and outputting long lists of X and Y values. To save on the 

cost of hard copy paper, a special interface was constructed. The analog 
data is digitized, scaled and the output is listed on a Model 33 Teletype. 
It has been in use for over three years and hasn't dropped a bit yet. 


The interface connects through the RS-232 plug. 
included along with a short digitizer and output program. 


Complete schematics are 


The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc., assumes no responsibility and 
shall have no liability, consequential or otherwise, of any kind arising from 
the use of this program material or any part thereof. 
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ABSTRACT NO: 


TITLE 


20mA Current Loop Interface 51/00-6118/0 


RS-232-C to 20mA Current Loop Interface 


Printer 


ASR Mod 33 


2N3906 


Teletype 


On back of plug 
1. Jumper pins 4, 5 and 20 
2. Jumper pins 11, 12 and 19 


2N3906 0.15 
1N4153 . 0.10 
1.6k 0.08 
Plug & cable 3.00 


$3.33 
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Connector to Model 33 Teletype 


(see the actual photo in the 4050 Series Applications 
Library catalog) 
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20mA Current Loop Interface 51/00-6118/0 


Variables Used to Store Type 


ро Output address 

M(1) MIN-X value of data 
MX-X " "=" 
Миу "о" » 
MAX-Y " "о" 


skew correction 
and scaling 


) 
) 
) 
) 
) 


RP ,R1,R2,R3 


I . Loop Index 
X,Y coordinates 
2% Status of Tablet Cursor 


EQUIPMENT REQUIRED 


4050 System 

Tablet with four-button cursor, use the white button (status = 1) to digitize 
Model 33 Teletype 

Specially constructed interface 
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TITLE ABSTRACT NO: 


20mA Current Loop Interface 51/00-6118/0 


Operating Instructions 
Set your tablet controller to POINT mode. 


Enter the data from the keyboard as requested. 
Lay your graph or plot on the tablet. 


Move the four-button cursor to the point of oriqin on your plot (the 
location of the minimum X and Y data, (see next page) 


While holding in the ORIGIN button, digitize this point. 


Release the ORIGIN button and digitize the lower far right of your plot; 
now digitize the upper far right. 


You are now ready to digitize the plot and have the data transferred to 
the Model 33 Teletype. Press Button 2 to end the session. 


This is a very simple program and could certainly be expanded to operate 
in STREAM mode, etc. 
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TITLE ABSTRACT NO: 


20mA Current Loop Interface 51/00-6118/0 


INIT 

РАСЕ 

PRINT "This program will digitize a graph ог тарпеђоргат " 
PRINT "апа then list the data out to the Мод. 33" 
DIM M(6) 

PRINT "JJEnter X-MIN value of data "; 

INPUT M(1) 

PRINT "JEnter X-MAX value of data "; 

INPUT M(2) 

PRINT "ЈЕпђег the Y-MIN value of даа"; 

INPUI M(3) 

PRINT "JEnter the Y-MAX value of data "; 

INPUT M(4) 


REM---Find the range of X ard Y 


M(2)=M(2)-M(1) 

M(4)2M(4)-M(3) 

PRINT "JRange of X= ";M(2);" Range of Y= ";М(4) 

PRINT "JSet the ORIGIN of the board at Х-МІК, Y-MIN" 

INPUT €8:M(5),M(6),2$ 

PRINT "JGGGORIGINz";M(5);",";M(6) 

PRINT "JGNow digitize the far right of data (X-MAX, Y-Min)" 
INPUT 68:M(5),M(6),2$ 


REM --- Get the rotation information 
AzATN(M(6)/M(5)) 

BzSIN(A) 

С-СО5(А) 


REM --- Get X-MAX апа Y-MAX 


PRINT "JGNow digitize the upper right (X-MAX, Y-MAX)" 
INPUT 68:X,Y,2$ 
PRINT "GG" 


000-6405-02 | TEKTRONIX 4051 PROGRAM 


PAGENO: 9 
TITLE ABSTRACT NO: 


20mA Current Loop Interface 51/00-6118/0 


REM --- Calculate the rotation 


RO=X*C+Y*B 
R1=Y*C-X*b 
PRINT "Now go ard sample the data " 


REM --- MAIN DIGITIZING LOOP --- 


PRINT €D:"L" 

PRI €D:" X 

FOR I=1 TO 6 STEP 2 
INPUT Е8:Х,7,2% 
Z=VAL(Z$) 
GO TO Z OF 510,610 
RezX*C«Y*E 
R3zY*C-X*B 
Х=М(1)+М(2) * Re/ RO 
Y=M(3)+K(4)%R3/EF1 
PRINT €D: USING 560:X,Y 
IMAGE ¿(6D.3D),s 

NEXT I 

PRINT 6D:"J" 

GO TO 470 

PRINT €D:"L" 

END 
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TITLE ABSTRACT NUMBER 
Leroy Character Generator 51/00-8012/1 
MEMORY REQUIREMENT 
ПИ r, REVISION PATE 5/80 13597 Bytes (Full Version) 
AUTHOR PERIPHERALS 
Mark Mehall 4662 (Optional) 


ABSTRACT 


This set of routines draws English and Greek upper and 
lower case letters, numbers, special characters, and 
centered symbols on a 4050 or 4662. The characters and 
symbols can be any size, at any angle and may be positioned 
at any location on the screen or plotter surface. Since 
routines do not Interfere with the user's window and viewport, 
they can be used with existing programs for annotation. 

Labels can be placed on axes, points can be indicated, 

and legends can be added to graphs. There are 211 different 
symbols avallable. The routines also offer subscripts 

and superscripts, underlining, /ralics, tab 

settings, backspace and carriage return functions. The 
characters are similar to the Leroy style. 


The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc., assumes no responsibility and 
shall have no liability, consequential or otherwise, of any kind arising from 
the use of this progrem material or any part thereof. 
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DESCRIPTION 


There are three routines in this package and one data file. 

The first routine (GOSUB 9000) initializes the tables used by the 
program from the dota file. This routine should be used only once 
during each program. The second routine (GOSUB 9100) does the 
actual character generation. The routine requires three variables: 
C$ - the string of ASCII characters to be drawn, S - the 

size of the characters in Graphic Display Units (GDUs), and 

A — 1he angle (in degrees) of counterclockwise rotation. 

The third routine (GOSUB 9200) is an entry point to allow some 
special features to be used. 1+ will be discussed later. 
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TAPE LAYOUT 


There are two files associated with this set of routines. The 
first is an ASCII file containing the three subroutines needed 
for the character generation. The second is a binary file 
containing the character arrays N$, D$, and M$. When GOSUB 
9000 is executed, it finds the binary file (statement 9014) 
and reads the arrays. If the binary file 15 not the second 
file on the tape, statement 9014 should be changed to indicate 
the correct file number. 


SUGGESTED USAGE 


After a program has been written to use the character generator 
routines, make a REMARK statement at line 9000, Insert the tape 
with The character generator and FIND the file which has the 
three routines. The routines can now be added using APPEND 9000 
The user program should execute a call to the initializing 

routine (GOSUB 9000) before the character generator can be used. 
Alternatively, the user can use RUN 9000 1o initialize the 

tables without having GOSUB 9000 In his program. The 

initializing routine should only be executed once for each 

program. 
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EXAMPLE #1 PROGRAM 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 


REM INITIALIZE THE CHARACTER GENERATOR 
GOSUB 9000 

REM SET ANGLE TO O 

A=0 

REM SET CHARACTER STRING 

C$="A Character String" 

REM SET THE SCALE TO 4 (GDUS) 

S=4 

REM MOVE TO THE BEGINNING LOCATION 
MOVE 65,50 

REM EXECUTE THE ROUTINE 

GOSUB 9100 

END 


EXAMPLE #1 RESULT 


мыз ВА УЕ б? 


A Character String 
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EXAMPLE #2 PROGRAM 


100 
110 
120 
130 
140 
150 
160 
170 
160 
190 
200 
210 


REM SET ANGLE TO O 

A=0 

REM SET CHARACTER STRING TO BE "Z" 
C$-"7" 

REM MOVE TO THE BEGINNING LOCATION 
MOVE 65,50 

REM SET THE SIZE OF THE STRING 
FOR 5=5 TO 2 SIEP--O.2 

REM EXECUTE THE ROUTINE 

GOSUB 9100 

NEXT S 

END 


EXAMPLE #2 RESULT 
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EXAMPLE. 43 PROGRAM 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


000-6405-02 


REM SET CHARACTER STRING 

C$-" Symbol Generator" 

REM SET THE SCALE TO 2.5 (6005) 
5=2.5 

REM SET THE ANGLE 

FOR A-O TO 330 STEP 30 

REM MOVE TO THE BEGINNING LOCATION 
MOVE 65,50 

REM EXECUTE THE ROUTINE 

GOSUB 9100 

NEXT A 

END 
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51/00-8012/1 


CHARACTERS AVAILABLE 


There are 256 characters in this set of routines. They are 
divided Into two groups (English and Greek). The printable 
ASCII characters (decimal 32 through 126) may be obtained 
directly from the 4050 keyboard. The ASCII control codes 
(decimal O through 31) have been defined to produce additional 
characters (see tables). Decimal O through 15 of the English 
group are special symbols which are centered about the 
location of the beam (ог pen) when the routine Is entered. 
The contro! code characters can be obtained by using the CTRL 
key on the 4050. For example C$="A" (CTRL A) 

produces c 


There are two characters which cannot be obtained directly 


from the keyboard. Both declmal 13 and 127 must be defined 
using the CHR function (e.g. C$=CHR(127)). 
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еке 09259 з= SNe і В 


z 8 3 З 8 З B8 Ң 8 8 8 š U 3 $ 


- оо O O Q + OC .— —— — = C O 


English Characters 


LI O <q 2 X + P X + 2 X X 


° - 
a ~ = 
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e GODS esu cO ONSE uy 


7 
L 
Ф 
-- 
o 
O 
L 
С 
C 
O 
C 
Ф 
Ф 
L 
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FEATURES 


The control character | is used to convey special instructions 
according to the character which follows the |. For example, 

[7 means to enter the subscript mode. If a | is followed by 

a character which is not defined as a code, it will be ignored. 

A single | is drawn if two of them appear successively. Control 
characters may appear anywhere In C$. 


English and Greek 


The characters ІЗ Invoke the English group of characters. 
This is also the default group used if none is specified. 

The Greek characters are enabled by using | 4. For example: 
the string C$="tan(|4a+b)" produces: tan(a+B) 

Note that the Greek group will be used until the English set 
is enabled with a |3. 


Superscripts and subscripts 


If the characters |5, |6, |7, or |8, are encountered, an 
Instruction regarding superscripts and subscripts is executed: 

[5 means to enter the superscript mode; 

|6 means to leave the superscript mode; 

|7 means to enter the subscript mode; 

|8 means to leave the subscript mode. 
Superscripts may have subscripts or superscripts, etc. For 
example the string C$="el 5x! 7к| 8152 (п-1)Ї6| бах| 7к| 8" 
produces the result: 


ех? "dx, 
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Establishing а reference point and returning to it 


If the characters [9 are encountered, the coordinates of the 
next available position are stored for future reference. 

If the characters [А are encountered, the drawing wil 
continue at the position stored in the last reference to [9. 
If 9 has not used, the reference point is assumed to be 
the starting location used when GOSUB 9100 was invoked. 
since GOSUB 9100 resets the reference point, GOSUB 9200 
should be used with |9. 


Tob 


A single “tab setting” is provided. The position of the tab 
Setting is established (or revised) by using the contro! 

characters |B in C$ when at the desired location. Any 
subsequent use of the control characters |C will cause 

the following characters to be drawn at a point directly 

below the point at which |B was invoked. If |B has not been 
used, it is assumed that the tab was set at the Starting 
location when GOSUB 9100 was invoked. The tab (С) із usuaily 
used with multiple calls to carriage return (see below). The 
“tab set" position is preserved from one call to GOSUB 9100 or 
GOSUB 9200 to another. 
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Under lining 


The underscoring of a word or a series of words is accomplished 
by the use of the code |9 to establish the beginning of the 
underscored material and the code |D to establish the end of 
the underscored material. For example the string 
C$="The |OtitlelD" produces the result: 

The title 
If |D is invoked without |9 ever having been used, underlining 
will start from the starting location when GOSUB 9100 was 
executed. 


Backspace 


If the characters IC are encountered, drawing will continue 
starting at the beginning of the last drawn character. 
Backspace may not be called meaningfully more than once in 
succession, since the only pertinent information stored is 
the beginning location of the last plotted character. 
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Carriage return 


The control characters |F are used when drawing is to be 
resumed at a point located at 1.5*S below the beginning point 
of the previous execution of GOSUB 9100. Carriage returns 
may be used successively. 


Italics 


When a group of letters is to be /talicized, the contro! 
characters |G are placed before the group and the control 
characters |H after the group, in C$. For example, the 
String C$="|Gtime|H, T" produces the result: 
: time, Т 
Italics are “carried over“ from one call to GOSUB 9100 (or 
GOSUB 9200) to the next. 
For example, the series of statements: 

C$-"|G" 

GOSUB 9100 

C$=STR(PI) 

GOSUB 9200 

C$-"|H r|52" 

GOSUB 9200 
produces 1he result: 

3.14159265359 ге 
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MEMORY REQUIREMENTS 


The full version takes 13597 bytes of storage. The following 
can be used to decrease the amount of memory required: 


1. Delete all REM statements (except 9000, 9100 and 
9200). This version uses 10367 bytes of memory. 


2. Remove the special functions by deleting lines 9224 
through 9376, and delete the Greek Characters by 
running the following program: 

100 DIM N$(513),D$ (1025),M$ (5086) 
110 FIND 2 
120 READ @33:N$,D$,M$ 
130 DIM N$(256),D$ (512) ,M$ (2278) 
140 FIND 2 
150 WRITE @33:N$,D$,M$ 
160 CLOSE 
170 END 
Also change line 9006 10: 
9006 DIM N$(257),D$ (513) ,M$ (2279), E$(1),F $(1),6$ (1) 
This version uses 5371 bytes of memory. 
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REVISION 
This revision (6/80) included the following: 


1. Greek letters and 33 new symbols added. 


2. Added English (|3) and Greek (|4) codes. 


. Character #16, "P" the degree symbol (7), 
Is no longer centered. 


. Increased character spacing for improved 
readability. 


REMARKS 


This set of routines is based on a program developed at the 
University of Illinois by J. W. Phillips. Please send any 
comments or suggestions to: 

Mark Mehall 

Tektronlx, Inc. 

P.0. Box 500 63-425 

Beaverton, OR 97077 
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TITLE 


Leroy Character Generator 


PROGRAM LISTING 


9000 REM THIS ROUTINE INITIALIZES THE TABLES USE BY THE 
9002 REM CHARACTER GENERATOR. 1T SHOULD BE EXECUTED (ONCE) BEFORE 
9004 REM THE CHARACTER GENERATOR IS USED. (i.e. GOSUB 9000) 


9006 DIM N$(513) 08 (1025) M$ (5087) ES (D РВС) 468 (1) 


9008 REM SET GRAPHIC DEVICE (DEFAULT IS SCREEN) 


9010 U?-32 


9012 REM FIND FILE WITH DATA ARRAYS AND INITIALIZE 


9014 FIND 2 
9016 READ 833:N$, D$. M$ 


9018 REM SET CODE FOR NO ITALICS 


9020 19=0 


9022 REM SET CODE FOR ENGLISH CHARACTER SET 


9024 J9=0 
9026 RETURN 


9100 REM CHARACTER GENERATOR ROUTINE 
9102 REM VARIABLES USED - 

9104 REM 5 - SCALE OF THE CHARACTERS IM GRAPHIC DISPLAY UNITS (GBUs) 
9106 REM Сё - ASCII CHARACTER STRING ТО BE PLOTTED 

9108 REM A - ANGLE (IN DEGREES) OF COUNTERCLOCKWISE ROTATION 
9110 REM LOCAL VARIABLES USED - 

9112 REM XV ~ TAB REFERENCE ALSO UNDERLINE REFERENCE 

9114 REM — Х5,У5 - GENERAL REFERENCE POINT 

9116 REM — X6,Y& - CURRENT LOCATION 

9118 MM Х7,у? — ~ CHARACTER MOVES 

9120 REM ХВ,Т8 ~ STARTING CHARACTER STRING LOCATION USED FOR CR 
9122 REM — X9,Y9 - MORK VARIABLES 

9124 REM 59,07 ~ SIN(A) AND COS(A) 

9120 REM — ES,F$;6$ - WORK STRINGS 
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9128 REM - TABLE OF MOVES PER CHARACTER 

9130 REM - TABLE OF INDEX INTO M$ AND WIDTH 

9132 REM - CHARACTER MOVES 

9134 REM - ITALICS CODE (0=0FF 1=0N) 

9136 REM - CHARACTER SET CODE (O=ENGLISH 1-0КЕЕК) 

9138 REM |9,М9 - INDEX VARIABLES 

9140 REM P?  - BRAN CODE (1=MOVE 2=DRAN) 

9142 REM SB - CORRECTED SCALE FACTOR 

9144 REM U? — - UNIT NUMBER OF GRAPHIC DEVICE (DEFAULT IS 32) 
9146 REM CB - ASCII DECIMAL EQUIVALENT OF LETTER OF C$ 
9148 REM WB - CHARACTER WIDTH (IN GDUs) USED FOR BACKSPACE 
9150 REM — N9,D9 - MISC. VARIABLES 

9152 REM GET BEGINNING LOCATION 


9154 INPUT 809, 24:Х6/ 16 
9156 REM SAVE STARTING LOCATION 


9158 X8-Xó 
9160 YB=Yo 


9162 REM SET REFERENCE POINT 


9164 X5=X6 
9166 15=16 


9200 REM ENTRY POINT FOR BYPASSING THE GIN COMMAND 
9202 REM THE CHARACTERS WILL ВЕ DRAWN AT THE END OF THE LAST STRING 
9204 REM CORRECT SCALE FACTOR FOR 6DUs 


9206 58-5%1.25 
9208 SET DEGREES 


9210 REM ALL ANGLES IN DEGREES 
9212 S?:SIN(A) 

9214 C9=COS(A) 

9216 FOR 19-1 TO ЕМСС) 


9218 REM GET А CHARACTER 
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000-6405-:2000 


E$-SEB (Cf1L9,1) 
CB-ASC (E$) + J9128 


REM CHECK FOR CONTROL CHARACTER 

IF ESO 1" THEN 9378 

L9=L9+1 

E$-SEG(C$)L9)1) 

EB=ASC (E$) 

REM CHECK FOR ANOTHER CONTROL CHARACTER, IF YES МАН ONE 
IF C8-124 THEN 9378 

REM CHECK FOR 3 THROUGH 9 


JF C8(51 OR C8)57 THEN 9246 
60 TO (8-50 OF 9252/9258,79264/ 9274) 7284, 7294, 9304 


REM CHECK FOR А THROUGH 6 


IF CB(65 OR CB)72 THEN 9532 
60 TO (8-44 OF 9312,9320; 9328; 9336: 9344; 9352; 9368; 9374 


REM ENGLISH CHARACTER SET MODE (CODE 3) 


4950 
60 T0 9532 


REM GREEK CHARACTER SET MOBE (COBE 4) 


`9=1 
60 Т0 9532 


REM ENTER SUPERSCRIPT МОВЕ (CODE 5) 


уб=16+58%0. 32339 
X6=X4-SBHO. 333315? 
58=58#0.6 

60 TO 9530 


A 
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REM LEAVE SUPERSCRIPT MODE (CODE ó) 


58:5881. 6647 
16-78-58%0,333379 
X6=X6+58M0, 3333859 
60 TO 9530 


REM ENTER SUBSCRIPT MOBE (CODE 7) 


Vტ=V6-58M0, 26678C9 
X6=X6+S880, 2667159 
$8=58%0.6 

50 TO 9530 


REM LEAVE SUBSCRIPT MODE (CODE 8) 
58:58#1, 6647 
V6=V6+58#0, 2667809 
Х6=Х6-5880. 2667859 
БО TO 9530 
REM ESTABLISH REFERENCE POINT (CODE 9) 
Х5=Х6 
=Y6 
60 TO 9532 
REN RETURN TO REFERENCE POINT (CODE A) 
X6=X5 
Y6=Y5 
60 TO 9530 
REM ESTABLISH TAB REFERENCE (CODE B) 
X4=X6-X8 
Y4zYó-TB 
60 TO 9532 


REM TAB OPERATOR (CODE C) 
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E$=SE5 (06,89 1) 

F$=SEG (0$,D9+1,1) 

6$=5Е6 (86/09+2/1) 

WB=D9 

D9=ASC (E$) #256tASC (Е) #16+450 (64) 

D9=D9x2+1 

E$=SEG(D$ 882,1) 

W8=ASC(E$) 

FOR №=09 TO розожно-1 STEP 2 
X$=SE6 (M$ МУ; 1) 
X7=ASC (X$) 
Y$=SEG (M6 ,M9+1,1) 
Y7=ASC(Y$) 


REM CHECK FOR SPECIAL CODE 
IF Х7:15 THEN 9486 
REM OFFSET FOR NONCENTERED SYMBOLS 


X7=X7-1 
Y7:17-3 


REM CHECK FOR CENTERED SYMBOLS 
IF C8)15 THEN 9438 
REM OFFSET FOR CENTERED SYMBOLS 


Y7:17-6 
Y7:X7-6 


REM ITALICIZE IT 


IF 1920 THEN 9444 
7-740. 3417 


REM ROTATE IT 


IF A=0 THEN 9456 
X9=–V7§57+X7MC7 
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Y9: Y74C94 X748? 
X7=X9 

Y7=Y9 

REM SCALE IT 
X9=X7M0,06667#58+Xბ 
Y9=¥7#0, 06667"S8+76 
X7=X9 

17279 

REM CHECK FOR A MOVE 
IF P9=2 THEN 9476 
REM DRAM IT 


PRINT ВИ9,20:Х7:17 
G0 TO 9480 


REM MOVE TO IT 
PRINT 609, 21:Х7,17 
REM RESET DRAW CODE 


P9=1 
60 TO 9512 


REM SPEC CODE X7=15 


60 TO Y7«1 OF 9494,7510,7502 
60 TO 9512 


REM MOVE CODE 
REM 1720 


Р9-2 
60 10 9512 


REM 1722 
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REM INCREASE SCALE FACTOR 


58=58#2 
& TO 9512 


REM Y7=1 
REM DECREASE SCALE FACTOR 


58-58%0,5 
NEXT M9 


REM CHECK FOR CENTERED SYMBOL (RETURN TO CENTER OF SYMBOL) 
IF C8(16 THEN 9530 

REM CALCULATE WIBTH OF CHARACTER 

X9=W8#0. 07567158 

REM CALCULATE NEXT LOCATION 


Yé=Y6+X98S9 
X6=X6+XწML 


REM MOVE TO IT 
9530 PRINT 8U9,21:X6,Yó 


9532 NEXT 19 
9534 RETURN 
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ABSTRACT 


Statements: 402 
Files: 1 ASCII Program 


The subroutine draws characters for titles and illustrations. The 
Curves of the characters are formed as an envelope of tangent line 
segments. Only standard upper case letters are supported. An 
example program is included to demonstrate program operation. 


Program operation: 


Store the characters to be drawn in P$ 

Store the width of a character in Kf 

Store the device address in K8 (32 = screen) 

Store the aspect ratio for a character in V3 (height/width) 
Set a square window and viewport 

Set the starting coordinates for the string to be drawn 
Call the routine 


The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc., assumes по responsibility and 
shall have no liability, consequential or otherwise, of any kind arising from 
the use of this program material or any part thereof. 
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METHOD 
The character set is based on the fact that when the sides of an angle 
are divided into an equal number of points and these points are connected 


in inverse order, the resulting line segments are tangent to a curve 
(a parabola) and form an envelope of the curve. 


Step one: Three points determine an angle 


L1(1),L1(2) 


L1(3),L1(4) 


Step two: Divide the line segments into "u" equal parts 


D2 
D1 


Step three: Connect the points in inverse order 
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The characters are created from combining several of these basic 
elements. The present characters are encoded on a 3x5 grid. The 
points on the grid are identified by characters as shown. 


E 0 


The code for the letter "A" is AJK 


The code for the letter "T" is EJFOJF 


000-6405-02 TEKTRONIX 4051 PROGRAM 


PAGENO: 3 
TITLE ABSTRACT NO: 


SPIDER'S WEB CHARACTER GENERATOR 51/00-8036/0 


PROGRAM LOADING 


Press AUTOLOAD if the program is located on the first file on the 
tape otherwise: 


FIND # (number of file) 
OLD 
RUN 


The program will automatically generate a sample to the screen. 


PROGRAM EXECUTION 


The program is a subroutine. Lines prior to 1000 set the required 
variables: 


P$ - the characters to be drawn 

Kf width of a character 

K8 output device address (32 - screen) 
aspect ratio for a character 


lower left had corner coordinates of the character 


GOSUB 4000 - calls the routine 
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DATA STORAGE 


Variable Used to Store 


Segment of web code 

Segment of character string 

ASCII code for a character 

X step difference 

Y step difference 

X step difference 

Y step difference 

Web codes for the characters 

Number of characters in a character code 
Index in a loop 

Index in a loop 

Index in a loop 

Character size 

1/2 character size 

1/4 character size 

Missing character or space flag 

Device primary address 

Coordinate points of a segment 

Number of characters to be drawn 
Character string to be drawn 

Number of line segments in an element 
Off set code for a character 

Aspect ratio factor 

Aspect ratio (height/width) 

X coordinate (lower left corner) 

X coordinate of a point in the character 
Y coordinate (lower left corner) 

Y coordinate of a point in the character 
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КЕМ 51/00-8036/0 SPIDER'S WEB CHARACTER GENERATOR 
REM INITIALIZATION 

REM KO = CHARACTER WIDTH IN GDU'S 

REM КЕ = DEVICE NUMBER (32 IS THE SCREEN) 

КЕМ УЗ = CHARACTER ASPECT RATIO (HEIGHT/WIDTH) 
REM 


WINDOW 0,130,0,130 
VIEWPORT 0,130,0,130 
PAGE 

К0-12 

KE=32 

У Заг 


REM 

REM 

REM MAIN PROGRAM 

REM 

REM (X,Y) ARE THE COORDINATES OF THE LOWER LEFT HAND CORNER 
REM OF THE CHARACTER. 

REM P$ = THE CHARACTER STRING TO BE DRAWN 

REN 


X=0 

Y=80 

P$="THIS IS A TEST OF" 
GOSUB 4010 

X=0 

Y=60 

P$z"THE 4050 SPIDER'S" 
GOSUB 4010 

X=0 

Yz40 

P$="WEB CHARACTER " 
GOSUB 4010 
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680 X=0 

690 YzeO 

700 P$="GENERATOR" 
710 GOSUB 4010 
720 X=0 

730 Xe 

740 P$="AUGUST 14, 1979" 
750 GOSUB 4010 

760 X=0 

770 Yz30 

780 END 


790 REM 

800 REM 

1000 REM 

1010 KEM DECODING SUBROUTINE TO ESTABLISH THE CCORDINATES OF A POINT 
1020 REM ON THE WEB. 

1030 REM 


1040 C=ASC(A$) 

1050 K4=0 

1060 CzC-65 

1070 IF C>4 THEN 1110 

1080 X0=X 

1090 YOzY«C*Ke*ve 

1100 RETURN 

1110 IF C>9 THEN 1150 
. 1120 X0=X+Ke 

1130 YOzY«(C-5)*Ke*ye 

1140 RETURN 

1150 IF C>14 THEN 1190 

1160 Х0-Х-К1 

1170 YO=Y+(C-10)*k ¿*Y2 

1180 RETURN 

1190 X0=X+K1 

1200 K4=1 
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YO=Y 
RETURN 


REM 
REM 
"REM DECODE SETS OF THREE POINTS TO FORM WEES 
REN 


K1=K0/2 
KzzK1/2 
DELETE L1 
DIN L1(6) 
H=LEN(HS) 
FOR 1121 ТО Н/З 
FOR K=1 TO 3 
A$=SEG(H$, 1,1) 
H#=REP("" 1,1) 
GOSUB 1040 
IF Кч-1 THEN 2170 
L1(2*K-1)=X0 
L1(2*K)zYO 
NEXT K 
GOSUB 2210 
MOVE €K8:XO, YO 
MOVE еке: хо, YO 
NEXT Ј1 
RETURN 


REM U = NUMBER OF LINES PER ENVELOPE CURVE (WEB) 
U=6 
KEM 
REM 


REM ROUTINE TO DRAW THE WEB 
REM 
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3020 D1z(L1(3)-L1(1))/U 
3030 Dez(L1(4)-L1(2))/U 

3050 D3=(L1(5)-L1(3))/U 

3060 D4=(L1(6)-L1(4))/U 

3070 FOR [220 TO U 

3080 PRINT €K8,21:L1(1)+12*D1,L1(2)+12*D2 
3090 PRINT €K8,20:L1(3)«I2*D3,L1(4)«I2*D« 
3100 NEXT Те 

3110 RETURN 


4000 REM SELECT CHARACTER TO ВЕ DRAWN CALL FOR ENCODING AND DRAWING 


4010 N1=LEN(PS) 

4012 К1-К0/2 

4014 KezK1/2 

4016 SET NOCASE 

4018 VezV3/2 

4020 FOR I8=1 TO N1 
4030 C$=SEG(P$,1,1) 
4040 P$*$=REP("" 1,1) 
4050 GOSUB 5010 
4060 GOSUB 2020 
4070 Х=Х+2.5#Ко 
4080 MOVE €K8:X,Y 
4090 NEXT I8 

4100 RETURN 


4110 REM 
4120 REM 
5000 REM SELECT AND ENCODE WEB PATTERN FOR A GIVEN CHARACTER 


5010 VzASC(C$)-3e 

5020 IF V<1 THEN 5240 

5030 IF V>10 THEN 5060 

5040 GOSUB V OF 6840,6910, 6980, 7090, 7200, 7250, 7380, 7430, 7460, 7490 
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RETURN 
IF V>20 THEN 5090 

GOSUB V-10 OF 7560,7590,7640,7690,7740,7790,7820,7870,7900,7930 
RETURN 

IF V>30 THEN 5120 

GOSUB У-г0 OF 7980,8010, 8040, 8070, 8100, 8130, 8200, 8270, £300, 2370 
RETURN 

IF V>32 THEN 5150 

GOSUB V-30 OF 8400,6810 

RE TURN 

IF V»4e THEN 5180 

GOSUB V-32 OF 6010,6040,6070,6100,6130,6160,6190,6220,6250,€280 
RETURN 

IF V25 THEN 5210 

GOSUB V-42 OF 6310,6340, 6370, 6490, 6430, 6460, 6490, 6540, 6570, 6600 
RETURN 

IF V26 OR V«1 THEN 5240 

GOSUB V-52 OF 6630, 6660, 6690, 6720, 6750, 6780, 7430, 6810, 7460, 8490 
RETURN 

GOSUB 6810 

RETURN 


REM 
REM 
REM WEB CODES FOR THE CHARACTERS 


H$="AJK" 
RETURN 


REM Б 


H$="EONNMCCMLLKAECA" 
RETURN 


REM C 
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H$="NOJJECCAFFKL" 
RETURN 


REM D 


H$="EOMMKAACE" 
RETURN 


REM E 


H$z"OEDDCHHCBBAK" 
RE TURN 


REM F 


H$="OEDDCHECA" 
RETURN 


REM G 


H$="NOJJECCAFFKLLMH" 
RETURN 


REM H 


H$="ECHHMOACHHMK" 
RETURN 


REM I 


H$z"EJIOJIIHGGFAGFK" 
RETURN 


REM J 


H$="BAFFKLLMO" 
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RETURN 
REM K 


Н$="ЕСОАСК" 
RETURN 


REM L 


H$="LAR" 
RETURN 


REM M 


His" AEHHOK" 
RETURN 


REM N 


H$="AEKEKO" 
RETURN 


REM C 


H$="CEJJOMMKFFAC" 
RETURN 


REM P 


H$z"ACEEONNMC" 
RETURN 


REM Q 


MOVE €K8:X4K2*1.5, Y+K2*V2 
DRAW €K8:X+2.5*K2, Y-Ke/2*V2 
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H$z"CEJJOMMNKFFAC! 
КЕ ТОКА 


REM R 


.H$z"EONNMCECABCK" 
RETURN 


REM S 


H$z"NOJJEDDCHHMLLKFFAB" 
RETURN 


REM T 


H$z"EJFFJO" 
RETURN 


REM U 


H$="EAFFKO" 
RETURN 


REM V 


H$="EFO" 
RETURN 


REM W 


H$-"EAHHKO" 
RETURN 


REM X 


H$="EHAOHK" 
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RETUR!: 
REM Y 


H$z"EHOEHFOHF" 
RETURN 


REM Z 


H#="EOHHAK" 
RETURN 


КЕМ SPACE 


Н{="5" 
RETURN 


REM ! 


MOVE €K8:X«Ke, Ye4*Ke*Ve 
DRAW €K8:X+K2, Y«Ke*Ve 
MOVE €K8:X«Ke,Y 

DRAW €K8:X+K2, Y 

HS="S" 

RETURN 


REM " 


MOVE EK8:X+K2, Y+4*K2*V2 
DRAW 6K8:X,3*K2*Ve«Y 
MOVE €K8:X+K1,Y+4*K2*V 2 
DRAW €K8:X+K2, Y+3*K2*V2 
Нф-"5" 

RETURN 


REM # 
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MOVE €K8:X«Kc/2,Y«3.5*Ke*Vc 
DRAW @K8:X4Ke/2, Y+0.5*K2*V 2 
MOVE €K8:X+1.5*K2,Y+3.5#K2*VZ 
DRAW 6@1.8:Х+1.5*Ке, Y«0.5*Ke*Vz 
MOVE €K8:X,Y«3*Ke*Ve 

DRAW ЄК8:Х++К1, Y«K2*V2*3 

MOVE €K8:X, Y+K2*V2 

DRAW 6K8:X«K1, Y«K2*V2 

Н%-"5" 

RETURN 


REM $ 
MOVE 6K8:X4K1, Y«3.5*Ke*Ve 


DRAW 6K8:X,3.5*K2*Ve«Y 
DRAW @K8:X, Y+2*K2*V2 


DRAW @KE:X4K1, I+2XMCXV 2 
DRAW @K8:X4K1, Y«0. 5*Kz*Vz 
DRAW €K8:X,Y«0.5*K2*V2 
MOVE €K8:X4Kz, Ye4*K2*Ve 
DRAW ЄК8:Х+К2, Ү 

Нф= "<" 

RETURN 


REM % 

MOVE €K8:X4K1, Yei*Ke*Ve 
DRAW 6K8:X,Y 
H$z"DEJJIDFGLLKF" 
RETURN 

REM & 


MOVE €K8:X4K1,Y 
DRAW 6K8:X4K2/2, Y«3*K2*V2 
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DRAW €KE:X+K2/2, Y+4 ®K2*V 2 
DRAW €K8:X+K2%*1.5, Y-4*Ke*V2 
DRAW 6K8:X4«K2*1.5, у+3#К2%У г 
DRAW @K8:X, Y+2*K2*V2 

DRAW @K8:X,Y+K2%*V г 

DRAW @K8:X+K2/2,Y 

DRAW @K&:X+Kz,Y 

DRAW 6К8:Х+К2#1.5, Y+1.5*K2*V2 
H$="S" 

RETURN 


REM ' 


MOVE EKR:X+Kz, Y+4*K2*V2 
DRAW @K8:X, Y+3*K2*V2 
Hg="S" 

RETURN 


REM ( 


H$="JECCAF" 
RETURN 


REM ) 


H$="JOMMKF" 
RETURN 


REM * 


MOVE ЄК8:Х, Y+3*K2%V2 
DRAW @K8:X+K1, Y«Ke*V2 
MOVE @K8:X, Y+K2*V2 
DRAW 6K8:X«K1, Y«K2*V2*3 
H$="MHJJHCCHFFHM" 
RETURN 
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REM + 


H$="MHJJHCCHF FEM" 
RETURN 


REM , 


MOVE €K8:X+K2, У 

DRAW @К8:Х+К2/е, Y-K2*V2*0.5 
НЕ "5" 

RETURN 


REM - 


MOVE ОТТЫ ҒЫР. 
DRAW X+K1,Y+2*K2*V2 
Н%-"5! 

RETURN 


REM . 


MOVE €K8:X4«K2,Y 
DRAW @K8:X4K2,Y 
H$="s" 
RETURN 


REM / 

MOVE €K8:X+K1,Y+4*K2*V2 
DRAW €K8:X, Y 

H$z"S" 

RETURN 


REM O 
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PAGENO: 20 
ABSTRACT NO: 


TITLE 


SPIDER'S WEB CHARACTER GENERATOR 51/00-8036/0 


7190 не="СЕЈЈОММКЕРАС" 
RETURN 


REM 1 


MOVE €kK8:X+K2, Y«4*Ke2*V2 
7830 DRAW €K8:X+K2, Y 

7840 Hg="S" 
RETURN 


REM z 


H$="DEJJONNAK" 
RETURN 


REM 3 


H$z"DEJJONNMCCMLLKFFAB" 
RETURN 


REM 4 


MOVE ЕК8:Х+Ка, Y«4*Ke*Ve 
7940 DRAW 6K8:X«Ke,Y 

7950 H$="JCM" 

RETURN 


REM 5 


H$z"OEDEDCCHMHMLLKFFAB" 
RETURN 


REM 6 


H$="OECBCHHMLLKFFAB" 
RETURN 
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TITLE | ABSTRACT NO: 


SPIDER'S WEB CHARACTER GENERATOR 51/00-8036/0 


8030 REM 7 


8040 H$z"EOF" 
8050 RETURN 


8060 REM 8 


8070 H$z"DEJJONNMHHCDBCHHMLLKF FAB" 
8080 RETURN 


8090 REM 9 


8100 H$z"DEJJONNMHHCDMKA" 
8110 RETURN 


8120 REM : 


8130 MOVE €K8:X4Ke, Y+3*K2*V2 
8140 DRAW 6K8:X«Ke,Y«3*Ke*Ve 
8150 MOVE €K8:X+K2, Y+K2*V2 
8160 DRAW @K8:X4Ke, Y+K2*V2 
8170 H$="S" 

8120 RETURN 


8190 REM ; 


8200 MOVE 6K8:X«Ke, Y+K2*3*V 2 
8210 DRAW €K8:X+K2, Y+3*K2*V 2 
8220 MOVE €K8:X«Ke , Y«Ke*Vz 
8230 DRAW 6K8:X+K2/2, Y+K2*V 2/2 
8240 H$="S" 

8250 RETURN 


8260 REM < 
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TITLE 


SPIDER'S WEB CHARACTER GENERATOR 


000-6405-02 


H$="NCL" 
RETURN 


REM = 


MOVE @K8:X, Y+3*Ke*Ve 
DRAW @K8:X+K1, Y+3*K2*Ve 
MOVE €K8:X, Y+K2*V2 

DRAW 6K8:X«K1, YeKe*Ve 
H$="S" 

RETURN 


REN > 


H$="DME" 
RETURN 


REM ? 


MOVE €K8:X+K2, Yee Ка с 
DRAW €K8:X«Kz, У+ Ко Ус 
MOVE €K8:X4Kz,Y 

DRAW 6K8:X«Ke,Y 
H$z"DEJJONNMH" 

RETURN 


REM 
REM 
REM 7 


H$="CJFF UM" 
RETURN 
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TITLE ABSTRACT NUMBER | 
AUTOMATIC HARDCOPY FILE LISTINGS 51/00-8037/0 

ORIGINAL DATE REVISION DATE cu REQUIREMENT | 
August 1978 ` 


AUTHOR- USV Ph oa PERIPHERALS 
armaceutical Corp. : 
Roger Chan Tuckahoe, NY 4631 Hard Copy Unit 


ABSTRACT 


Statements: 129 


Files: 1 ASCII Program 


The program reads any size ASCII tape file program or data and lists 
it, line by Tine, on the screen. When the page is full, or last line 
is encountered, a hard copy on the 4631 is automatically produced. 
All contro! characters are processed so they will not execute when 
read and printed to the screen. The file numbers are noted on the 
first page of the listing. 


The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc., assumes no responsibility and 
shall have no liability, consequential or otherwise, of any kind arising from 
the use of this program material or any part thereof. 


000-6405-00 


PAGE МО: 1 
TITLE ABSTRACT NO: 


AUTOMATIC HARDCOPY FILE LISTINGS 51/00-8037/0 


PROGRAM LOADING 


Press AUTOLOAD if the program is located on the first file on the 
tape, otherwise: 


FIND # ( file number ) 
OLD 
RUN 


Respond to the questions as required. 


NOTE: If the program is interrupted in the middle, the screen may 
be set back to normal by the following statement: 


PRINT @32,26:0 
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PAGE NO: 2 
TITLE ABSTRACT NO: 


AUTOMATIC HARDCOPY FILE LISTINGS 51/00-8037/0 


EXAMPLE 


PLEASE PUT IN TAPE TO BE PRINTED & PRESS RETURN 


STARTING Shee FILE =1 


=] 


END FIL 
INPUT TAPE НАМЕ: MASTER TAPE 
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ABSTRACT NO: 


PAGE NO: 


51/00-8037/0 


AUTOMATIC HARDCOPY FILE LISTINGS 


ххжж 4402 ANY 3994 0109 OL HOILIQNOO TINA 3994 135 їкхх MIA 
(66)31 WII 

0x 

ІН INdNI 

і,є 3113 ONS и iHlsd 

N INdNI 

ішк 37113 #043 ЭНІ194915. 14194 

$444 “ON 3113 SNIQN3 ONY 9МІННІЗЗ8 INdNI iiid ers 

58 INANI 

„НЯП133 55344 3 VILNIAd 38 01 3491 НІ 1იძ 359314. ee 
Т=Я 

а «259 

« «258 

(66 )4Н=$9 

XXXX 8312949Н2 заообазанп SI $Y %$%% иза 

3994 

LINI 


#X#####+XXXXX#XXXXXX#4X##XXX#X#X#X#XX####X#XXX#X#4#XXXXX#X#X###1414+31#+#+ 
хак СИВ £ 18261 “91 “908 NO НОНО 43904 Ad NILLIAM fifi 
MAGO RO xx 1593 SI 11 ANY 40194340 #033 1111 
Xxxx* NOILN3LLY WAWINIW HLIM 2119н0108 SI 85533044 370HM 3H] 3423 
Жжжж 831402 dšoH 1297 В (не 3HIHQUM 1586 INISN 3491 1244 
хужкахх HO34 А4020Ч9Н 103110938 104100 01 И989044 Y SI SIHL X4XX 
ОООО ОООО АКЕ 
XXXXX#XX 59MI15I1 3713 AdOIQAYH JILYWOLNY XX#XX 02708-00715 3444 


R=33 3319930H3 4914614 
Р SI “ОН 3113 3491 YILSON SI 3HUH 3401 


TET 
TEN 
ТЕУ 
waa 
ЧЕТ 
иза 
Waa 
иза 
иза 
waa 
ТЕГ 


ТЕКТНОМІХ 4051 PROGRAM 


000-6405-02 


TITLE 


AUTOMATIC HARDCOPY FILE LISTINGS 


DATA STORAGE 


Variable 


000-6405-02 


Used to Store 


Underscore character 
Control character 
Replacing characters 
Logic flag 

Working storage 
Positional counter 
New statement's length 
Search counter 

Input storage 
Starting file number 
Ending file number 
Branching control 
Tape name 
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ABSTRACT NO: 


51/00-8037/0 


Type 
String 
String 
String 
Simple 
String 
Simple 
Simple 
Simple 
String (99) 
Simple 
Simple 
Simple 
String 
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TITLE ABSTRACT NO: 


AUTOMATIC HARDCOPY FILE LISTINGS 51/00-8037/0 


**** 51/00-8037/0 ***** AUTOMATIC HARDCOPY FILE LISTINGS ******** 
XXX# 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2.2 2 2.2 2 2 2 2 2 2 2 2 2 2 2 2 
**** THIS IS A PROGRAM TO OUTPUT BEAUTIFUL HARDCOPY FROM ******* 
**** TAPE USING 4051 MACHINE AND A 4631 HARD COPIER ************* 
**** THE WHOLE PROCESS IS AUTOMATIC WITH MINIMUM ATTENTION ***** 
ЖЖЖ FROM OPERATOR AND IT IS FAST Kk k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


**** WRITTEN BY ROGER CHAN ON AUG. 16, 1978; 3 А.М. ##XXXXXXXXX#X#X» 
##X#X######X#X#X##X#X##XXX##X#X##X##X7####X#X#X##X##X#####X###X#X#XX##X##X##X##XX##XX##X#X#X# 


INIT 
PAGE 


REM **** AS IS UNDERSCORE CHARACTER **** 


AS=CHR(95) 

В5=" " 

све” " 

K=1 

I=0 

PRINT "PLEASE PUT IN TAPE TO BE PRINTED & PRESS RETURN" 
INPUT 85 

PAGE 


REM **** INPUT BEGINNING AND ENDING FILE NO. **** 


PRINT "STARTING FROM FILE ="; 
INPUT N 

PRINT " END FILE ="; 
INPUT МІ 

F=0 

DIM 1.5 (99) 
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PAGE МО: 6 
TITLE ABSTRACT NO: 


AUTOMATIC HARDCOPY FILE LISTINGS 51/00-8037/0 


REM **** SET PAGE FULL CONDITION TO AUTO PAGE AND COPY **** 


PRINT @32,26:3 
PRINT "INPUT TAPE NAME:"; 


REM **** T IS THE TAPE NUMBER WHICH IS A CONSTANT **** 
INPUT T$ 

REM **** FILE COUNTER **** 

FIND N 

REM **** PRINT LAST PAGE OF THE FILE **** 


ON EOF (0) THEN 840 
PAGE 


REM **** BEGINING OP OUTPUT **** 
REM **** FIRST LINE IS TAPE NO. & FILE NO. **** 
REM **** THIRD LINE IS DISPLAY CHARACTER FOR CR **** 


PRINT "TAPE NAME IS ";T$,"FILE NO. IS ";N 
PRINT " DISPLAY CHARACTER CR=MH";A$;"__" 


REM **** READ A LINE FROM TAPE **** 

INPUT €33:L5 

REM **** SEARCH FOR PRINT STATEMENTS FOR SPECIAL HANDLING **** 
I-POS(L$," ",1) 

G$=SEG(L$,1+1,3) 


IF G$="PRI" THEN 370 


REM **** SEARCH FOR ASSIGNMENT STRING FOR SPECIAL HANDLING*** 
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PAGE МО: 7 
TITLE ABSTRACT NO: 


AUTOMATIC HARDCOPY FILE LISTINGS 51/00-8037/0 


G$=SEG (15,1+2,1) 
IF G$="$" THEN 376 
PRINT LS 

GO TO 31£ 


REM **** ROUTINE TO HANDLE PRINT STATEMENT **** 
REM **** PRINT STATEMENT WILL BE SEARCH CHARACTER BY CHARACTER **** 
REM **** FOR SPECIAL CHARACTERS **** 


J=LEN (LS) 

K=1 

Реф 

IF K=J THEN 358 
GOSUB 500 

IF F-0 THEN 430 
K=K+2 

GO TO 459 

K=K+1 

Рей 

GO TO 398 


REM **** SUBROUTINE TO TEST FOR SPECIAL CHARACTERS **** 
TS=SEG(LS$,K,1) 

P=ASC (TS) 

IF P=>7 AND P<=13 THEN 560 

REM **** TEST FOR CRTL Í AND CRTL RUBOUT **** 

IF P=30 OR Р=31 THEN 770 

Е=0 


RETURN 


REM **** BRANCHING FOR ALL SPECIAL CHARACTERS EXCEPT RS & CR/LF *** 
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PAGE МО: 8 
TITLE ABSTRACT NO: 


AUTOMATIC HARDCOPY FILE LISTINGS 51/00-8037/0 


P=P-6 

GOSUB P OF 630,650,670,690,710,730,750 

Р-0 

КЕМ **** COMBINE WHATEVER CHARACTER WITH THE UNDERSCORE **** 
CS=BS&AS 

REM **** REPLACE INPUT LINE WITH NEWLY COMBINED STRING **** 
LS=REP(CS,K,]) 

F=1 

J=J+2 

RETURN 


REM **** 


В$="СН" 
RETURN 


REM **** 


BS= "HH" 
RETURN 


REM ****x* 


BS= " IH" 
RETURN 


REM **** 


В5= "JH" 
RETURN 


REM **** 
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| PAGE МО: 9 
TITLE ABSTRACT NO: 


AUTOMATIC HARDCOPY FILE LISTINGS 51/00-8037/0 


BS= "KE" 
RETURN 


REM kkk CTRL L k xxx 


BS= " LH" 
RETURN 


REM keke CTRL M * xxx 


BS= " MH" 
RETURN 
IF P-30 THEN 820 


REM **** CTRL RUBOUT **** 


BS=" B" 
CS=BS&AS 
L$=REP (C$ ,K,1) 
GO TO 619 


REM **** CTRL Т ЖЖЖЖ 


BS="TH" 
GO TO 599 
N=N+1 

FIND N 

PRINT €32,26:3 
COPY 


REM **** TEST TO SEE IF IT IS LAST FILE REQUESTED **** 
IF N>N1 THEN 900 


GO TO 250 
PRINT €32,26:0 
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TITLE ABSTRACT NO: 


AUTOMATIC HARDCOPY FILE LISTINGS 51/00-8037/0 


910 ENE 


1000 КЕМ **** YOU JUST HAVE A WHOLE SET OF PRINTOUT FROM ТАРЕ %%%% 
1001 REM **** ALMOST FOR NO EFFORT AT ALL **** 
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— + ABSTRACT NUMBER 
51/00-8038/0 


TEXT EDITOR 
| = => 
ORIGINAL DATE REVISION DATE MEMORY REQUIREMENT 
February 1980 dou 
Б Мага Tektronix, Inc. PERIPHERALS 
Beaverton, OP. Nasa | 


ABSTRACT 


Statements: 262 


Files: 1 ASCII Program 
Requires pre-MARked file 


The program edits text or program files without using syntax-dependent, 
complicated command forms. The commands are entered by number: 

Enter text from keyboard or get from tape file 

List lines of text (all or part) 

Delete lines of text (line #'s) 

Insert lines (insert before line =) 

Swap lines (input 2 line numbers) 


Search and replace characters (start at beginning of line #) 


Renumber lines (start at line # and increment) 
Save on tape (pre-MARked file #) 
Quit 


о 0 М c тов C MH ка 


The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc., assumes no responsibility and 
shall have no liability, consequential or otherwise, of any kind arising from 
the use of this program material or any part thereof. 
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PAGENO: 1 
TITLE ABSTRACT NO: 


TEXT EDITOR 51/00-8038/0 


METHOD 


The program was written for people who do not wish to learn another 
set of edit commands. All commands are entered by number. 


The program is large, using about 20K bytes. The text/program file 
created by the TEXT EDITOR is therefore limited to about 8,000 to 
9,000 characters in a machine with 32K memory. 


The program is powerful when combined with the editing keys of the 
machine. 
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PAGE NO. 2 
TITLE ABSTRACT NO: 


TEXT EDITOR 51/00-8038/0 


PROGRAM LOADING 


Press AUTOLOAD is the program is located on the first file on the 
tape, otherwise: 


FIND # (file number) 
OLD 
RUN 


Respond to the questions as required. 


PROGRAM OPERATION 


Text may be entered from the keyboard or from a file. 


Data files must be pre-MARked before saving text. The file may reside 
on the program tape or a separate tape. 


NOTES: 


Option #7 - Renumber lines 


The numbers used are for editing purposes only, they do not affect 
the numbers to the left of the line. 


Option #6 - Search and Replace Characters 


List the part of the file and note the line number where the 
first replacement should occur before doing this routine. This 
will save time and cut down the possibility of error. 
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PAGENO: 3 
ABSTRACT NO: 


TITLE 


TEXT EDITOR 51/00-8038/0 


EXAMPLES 


MAKE TEXT FROM KEYBOARD OR GET TEXT FROM FILE 
LIST LINES OF TEXT 

DELETE LINES OF TEXT 

INSERT LINES 

SWAP LINES 

SEARCH AND REPLACE CHARACTERS 

RENUMBER LINES 

SAVE OH TAPE 

LIST TEXT TO PRINTER 

QUIT 


"HN I HH n n | м 


- 00 — Oy СЛ > Gl ГО — 


თ 


იას ACTION? 


ENTER INPUT DEVICE CKEYBOARD=31) CTAPE=33) 
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ABSTRACT NO: 
51/00-8038/0 


TEXT EDITOR 


"но 09 01 Mში133 55344 

*'9)N01 53817 81 SI 22 n 

0," Ll ¿AOL ERROR RA "МОН 304 H90n0N3 5,19НІ ӨТ 

-sınoana ШЕ 241 225 სხე пол #9 y с эйту чі 6 

“64001 SS34dW023 “анваха 243 mou 225 UDI nof 19 auti ЧІ 8 

“ладыти D Чути 31 SaID [dau рио г 
сацт| цэра UL $423204042 зо Яполб 15413 243 52373 2% uotzdg 
цэра чт 5439) 204042 зо атолб 15214 241 SIND) 04 01140 
цэра ut $493 4942 10 dNOUG 15214 2941 5249) 04 481390 9 

"(Ва 1013240) ,язананзя, с 


asn 304 ор auo SIU} 2411 2113 ұхау UD[ Nau D YIM P 
“1х31 SHL 30 1494 LON SI II £ 
43283434398 Y AQNO SI ЭНІННІЭЗЯ JHL 19 ASEWAN JHL е 
3113 1Х31 Y SI SIHI I 

„5, 83183 0ЗН5ІНІЗ H3HM "09V08მ#37X WOYA 1Х31 331HN3 
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PAGENO: 5 
TITLE ABSTRACT NO: 


TEXT EDITOR 51/00-8038/0 


2 = LIST LINES OF TEXT 


ALL (17 OR JUST PART OF IT (277 
1 


##X##1###X####X##XX#X TOTAL TEXT FILE XXXXXXX#XXXXXMXXIXXXXX 
THIS IS A TEXT FILE 
THE NUMBER AT THE BEGINNING IS ONLY A REFERENCE, 
IT IS HOT PART OF THE TEXT. 
With a regular text file like this ore, do not use 
“REHUMBER’ (Option #7>. 
Option #7 takes the first group of characters in each lines 
and replaces it with a number. 
In line 6, you can see how the EXPAND. COMPRESS LOOKS. 
In lines 5 & 6, you can see the RUBOUTS, 
18 THAT'S ENOUGH FOR NOK, RELATO 3465076), , ^ 089; 
PRESS RETURH TO GO ON. 


шо Y თ CAD ОЈ PO ++ 


oe (12 OR JUST PART OF IT (25? 


LIST WHAT RANGE OF LINES? 3,7 

3 IT IS NOT PART OF THE TEXT, 

4 With a regular text file like this one, do not use 

5 “RENUMBER” (Option #7). 

6 Option #7 takes the first group of characters in each line, 
? and replaces it with a number. 

PRESS RETURH TO GO OH. 
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= DELETE EINES OF TEXT 


MAKE TEXT FROM KEYBOARD OR GET TEXT FROM FILE 
LIST LINES OF TEXT 

DELETE LINES OF TEXT 

INSERT LINES 

SHAP LINES 

SEARCH AND REPLACE CHARACTERS 

RENUMBER LINES 

SQUE ON TAPE 

LIST TEXT TO PRINTER 

QUIT 


= 10 CV ^J ძი СЛ T. GJ f — 


a 


WW n n mn Hu n w "mn и H 


WHICH ACTION? 
DELETE LINES, FIRST LINE THROUGH LAST LINE TO DELETE 


NUMBER OF LINES IN PROGRAM IS 9, 
DELETION COMPLETED 
PRESS RETURH TO GO ON. 
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TITLE ABSTRACT NO: 


TEXT EDITOR 51/00-8038/0 


4 = INSERT LINES 


MAKE TEXT FROM KEYBOARD OR GET TEXT FROM FILE 
LIST LINES OF TEXT 

DELETE LINES OF TEXT 

INSERT LINES 

SWAP LINES 

SEARCH AND REPLACE CHARACTERS 

REHUMBER LINES 

SAVE ON TAPE 

LIST TEXT TO PRINTER 

QUIT 


y) w u NH w n N H NÁ n 


me 10 00 ЧАСА GJ TO ++ 


e 


Ра ACTION? 
INSERT BEFORE LINE 4 


ENTER LINES TO BE INSERTED. WHEN DONE ENTER $ 

THE LINE JUST BEFORE IS: 
З With a regular text file like this опе, do not use 
: А IT IS NOT ñ PART OF THE TEXT. 


NUMBER OF LINES IN PROGRAM IS 18 
IHSERTION COMPLETED 
PRESS RETURN TO GO OH. 
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TEXT EDITOR 51/00-8038/0 


5 = SWAP LINES 


MAKE TEXT FROM KEYBOARD ОК GET TEXT FROM FILE 
LIST LINES OF TEXT 

DELETE LINES OF TEXT 

INSERT LINES 

SWAP LINES 

SEARCH AND REPLACE CHARACTERS 

RENUMBER LINES 

SAVE ON TAPE 

LIST TEXT TO PRINTER 

QUIT 


- У თ за OF СЛ J GJ fJ => 


q 


«სცეს ACTION? 


ENTER THE TWO LINE NUMBERS YOU WISH TO SWAP 8,9 
SWAP COMPLETED 
PRESS RETURH TO GO ON. 
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TITLE | ABSTRACT NO: 


TEXT EDITOR 51/00-8038/0 


6 = SEARCH AND REPLACE CHARACTERS 


TYPE “1° TO START AT THE BEGINNING, THE LINE# IF YOU KNOW IT 
11 


11 REM xix THE 11 IS THE PROGRAM LINE NUMBER 
НОН MANY TIMES DO YOU WANT THE REPLACEMENT? 3 


PLEASE TYPE IH THE PART TO BE REPLACED: 
A THIS IS NOT THE FIRST OCCURANCE, YOU’LL BLOW IT! 


PLEASE TYPE ІН THE REPLACEMENT OF THE ABOVE: 


-»REM XXX THE 11 IS THE PROGRAM LINE NUMBER 
-»REM ...%% THE 11 IS THE PROGRAM LINE NUMBER 


-»REM ...%% THE 11 IS THE PROGRAM LINE NUMBER 
“ӘКЕМ ......X* THE 11 IS THE PROGRAM LINE NUMBER 


-»REM ......X THE 11 IS THE PROGRAM LINE NUMBER 
-ЖЕМ ......... THE 11 IS THE PROGRAM LINE NUMBER 
REPLACEMENT COMPLETED 
PRESS RETURH TO GO OH. 
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TITLE | ABSTRACT NO: 


TEXT EDITOR 51/00-8038/0 


7 = RENUMBER LINES 


MAKE TERT FROM a OR GET TE#T FROM FILE 
LIST LINES OF TE 

DELETE LINES OF TEXT 

INSERT LIHES 

SWAP LINES 

SEARCH AND REPLACE CHARACTERS 

RENUMBER LINES 

SAVE ОН TAPE 

LIST TEXT TO PRINTER 

QUIT 


ma мр 00 ^J OY СП T. GJ ТО ee 


a 


ს n m H n H NH w II H 


Ви ACTION? 


ENTER FIRST AND LAST LINES TO BE RENUMBERED (1,7) 1,11 
ENTER NUMBER WITH WHICH TO START AND INCREMENT (18,105 18,18 


RENUMBERING COMPLETE 
PRESS RETURH TO GO OH. 
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PAGENO: 11 
TITLE ABSTRACT NO: 


TEXT EDITOR 51/00-8038/0 
8 = SAVE ON TAPE 


MAKE TEXT FROM KEYBOARD OR GET TEXT FROM FILE 
LIST LINES OF TEXT 

DELETE LINES OF TEXT 

INSERT LINES 

SWAP LINES 

SEARCH AND REPLACE CHARACTERS 

RENUMBER LINES 

SAVE OH TAPE 

LIST TEXT TO PRINTER 

QUIT 


1 
2 
3 
4 
5 
6 
? 
8 
9 
1 


E anu ACTION? 


с 


ENTER FILE NUMBER 
BE SURE YOU HAVE A FILE MARKED THERE! 
2 


YOUR TEXT/PROGRAM IS SAVED IH FILE #2. 
GOODBYE! 
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PAGENO: 12 
TITLE ABSTRACT NO: 


TEXT EDITOR 51/00-80 38/0 


9 = LIST TEXT TO PRINTER 


WHAT IS THE DEVICE NUMBER FOR THE PRINTER? 53 
ALL <i> OR JUST PART OF IT (227 
1 


XXxitiii*Xiirxriixiix TOTAL ТЕХТ FILE XXXXXXXX#XXXXXXXXXXX#XX 
1 2 


3 4 5 6 ? 8 9 18 PRESS RETURN TO GO OH, 


IS A TEXT FILE 

NUMBER AT THE BEGINNING IS ONLY A REFERENCE, 

a regular text file like this one, do not use 
IT IS NOT A PART OF THE TEXT. 
'RENUMBER' (Option #7). 

#7 takes the first group of characters in each line, 
and replaces it with a number. 

line 6, you can see how the EXPAND, COMPRESS LOOKS. 

lines 5 & 6, you can see the RUBOUTS. 

100 ENOUGH FOR NOW.  !"$$$&'()*--:]]([7^?/»«,."^ 09; 
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PAGENO: 13 
ABSTRACT NO: 


TEXT EDITOR 51/00-8038/0 


DATA STORAGE 


Vairable Used to Store Type 


Length of a text line Array 
Main text String 


Beginning character number in AŠ of Array 
a text line 


One line of input text String 
Temporary string carrier String 
Printer device number Simple 
Which action Simple 
Temporary input Simple 
Temporary string input String 
Temporary counter Simple 
Temporary input Simple 
Temporary counter Simple 
Temporary input Simple 
Temporary counter Simple 
Line number Simple 
Temporary input Simple 
Temporary input Simple 
Temporary string input String 
Memory Simple 
Temporary counter Simple 
Temporary counter Simple 
Temporary string carrier String 
Temporary string carrier String 
Number of lines in a file Simple 
Form of input Simple 
Temporary string input String 
File number of data Simple 
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PAGENO: 14 
ABSTRACT NO: 


TITLE 


TEXT EDITOR 51/00-8038/0 


4 GO TO 10€ 
100 PAGE 
110 PRINT “1 = MAKE TEXT FROM KEYBOARD OR GET TEXT FROM FILE" 
120 PRINT "2 - LIST LINES OF TEXT" 

130 PRINT "3 - DELETE LINES OF TEXT" 

140 PRINT "4 - INSERT LINES" 

150 PRINT "5 = SWAP LINES" 

166 PRINT "6 - SEARCH AND REPLACE CHARACTERS" 

170 PRINT "7 - RENUMBER LINES" 

180 PRINT "8 - SAVE ON TAPE" 

190 PRINT "9 - LIST TEXT TO PRINTER" 

200 PRINT "10= QUIT" 

210 PRINT "GJJWHICH ACTION?" 

220 INPUT H 

230 GO TO H OF 270,590,800,1020,1370,1540,2370,2080,590,2640 


240 
250 
255 
260 
270 


280 


КЕМ *** TEXT EDITOR *** 


REM RE-WRITTEN 1/24/80 DENNIS WARD 


REM *** 51/00-8038/0 *** 


REM 


REM INPUT TEXT FILE - KILLS OLD TEXT, IF ANY 


INIT 


000-6405-02 


=SID ACC.- 


TEKTRONIX 4051 PROGRAM 


290 DIM B(300) ,А(300) ,А5 (9000) ,BS (80) 

380 A=0 

318 А5="" 

320 PRINT "ENTER INPUT DEVICE (KEYBOARD-31) (TAPE-33) "; 
336 INPUT Ul 

340 PAGE 

350 IF 01-31 THEN 400 

360 PRINT "ENTER FILE NUMBER "; 

370 INPUT X 

388 FIND X 

390 GO TO 410 

400 PRINT "ENTER TEXT FROM KEYBOARD, WHEN FINISHED ENTER қол” 
410 FOR I=1 ТО 2000 


PAGENO: 15 
TITLE ABSTRACT NO 


TEXT EDITOR 51/00-8038/0 


IF U1-33 THEN 448 
PRINT I;" "; 
INPUT @U1:BS 


REM B() IS POSITION OF SEGMENT IN TEXT 


B(I)=LEN (AS) +1 
AS=REP (BS ,B(I) ,0) 


REM A() IS LENGTH OF THE SEGMENT 


А (І) ПЕН (BS) 
ТЕ 01-31 THEN 530 
ON EOF (0) THEN 558 
СО ТО 540 
IF В5< "5" THEN 556 
NEXT I 
T-1-2 
IF Ul=33 THEN 560 
T=T+1 


REM THE ENTIRE TEXT IS AS 


PRINT "THE FILE IS ";T;" LINES LONG." 
GO TO 1348 


REM LISTING OF TEXT 


PAGE 

IF H<>9 THEN 610 

PRINT "WHAT IS THE DEVICE NUMBER FOR THE PRINTER? “з 
INPUT РЈ 

PRINT "ALL (1) OR JUST PART OF IT (2)?" 

INPUT НІ 

IF Hl=2 THEN 670 

Ll=1 
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PAGENO: 16 
TITLE ABSTRACT NO: 


TEXT EDITOR 51/00-8038/0 


PRINT fe 6.2.2. 2.2. 2.2.2. 2.2.2 2.2.2 2.2.2 2.2: TOTAL TEXT FILE K kk kck k X 2 2 2 2 2 2 2 2 kk 2.2 2 2 И 


GO TO 700 

PRINT "LIST WHAT RANGE OF LINES? "; 

INPUT L1,L2 

IF L2<=T THEN 710 

L2=T 

FOR I=L1 TO L2 
BSzSEG(AS,B(I),A(I)) 
PRINT 1;" "; 
IF H-9 THEN 776 
PRINT BS 
GO TO 78€ 
PRINT @р1:в$ 

NEXT I 

GO TO 1346 


REM DELETE LINES 


PRINT "DELETE LINES, FIRST LINE THROUGH LAST LINE TO DELETE" 
INPUT L1,L2 
IF L2<=T THEN 850 
L2-T 
DELETE K 
K=L2-L1+1 
H=T 
FOR J=L1 TO L2 
FOR I=L1 TO T 
A(H+1)=8 
B(H+1)=LEN (A$)+1 
А(Т)=А (1+1) 
В(Т)=В (1+1) 
NEXT I 
H=H+1 
NEXT J 
T-T-K | 
PRINT "NUMBER OF LINES IN PROGRAM IS ";T;"." 
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PAGENO: 17 
TITLE ABSTRACT NO: 


TEXT EDITOR | 51/00-8038/0 


990 GOSUB 1886 
1000 PRINT "DELETION COMPLETED" 
1010 GO TO 1346 


1020 REM INSERT LINES 


1630 PRINT "INSERT BEFORE LINE "; 

1040 INPUT Ll 

1050 PAGE 

1060 IF Ll«-T THEN 1080 

1076 Li=T+1 

1080 PRINT "ENTER LINES TO BE INSERTED. WHEN DONE ENTER Š" 
1090 IF Ll=1 THEN 1146 

1100 PRINT "THE LINE JUST BEFORE IS:" 

1110 BS=SEG(A$,B(L1-1) ,А(11-1)) 

1120 PRINT L1-1;" ";85 

1138 GO TO 1150 

1140 PRINT "THIS WILL BE THE FIRST LINE" 

1150 PRINT L1;" "; 

116@ INPUT BS 

1170 IF BS="$" THEN 1310 

1180 FOR I=T ТО 11 STEP -1 

1190 A (1+1)=A (1) 

1200 В(1+1)=В(І) 

1210 NEXT І 

1220 B(L1)=LEN(AS)+1 

1230 A(L1)=LEN(BS) 

1240 AS-REP(BS,B(L1),8) 

1250 Ll=L1+1 

1260 T=T+1 

1270 IF MEMORY>900 AND LEN(AS)<8900 THEN 1130 
1280 PRINT "YOU BETTER SAVE THIS NOW! ! G" 

1290 GO TO 1310 

1300 GO TO 1136 

1310 PRINT "NUMBER OF LINES IN PROGRAM IS ";T 
1320 GOSUB 1880 
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PAGENO: 18 
TITLE ABSTRACT NO: 


TEXT EDITOR 51/00-8038/0 


PRINT "INSERTION COMPLETED” 
PRINT "PRESS RETURN ТО GO ОК." 
INPUT HŠ 

GO TO 106 


REM SWAP LINES ROUTINE 


PRINT "ENTER THE TWO LINE NUMBERS YOU WISH TO SWAP "; 
INPUT 11,21 

ТЕ Il<=T THEN 1426 

GO TO 1382 

IF Jl«T THEN 144£ 
Jl-T 

DELETE K 

DIM K(T+1) 

K(11)=A (11) 

A(11)=A (01) 

А(91)=К (11) 
К(11)-В(11) 
B(11)=B(J1) 
В(21)-К(11) 

PRINT "SWAP COMPLETED" 
GO TO 1340 


REM REPLACE ROUTINE 


PAGE 

PRI "TYPE '1' TO START AT THE BEGINNING, THE LINE# IF YOU KNOW IT" 
INPUT Ll 

PRINT L1;" "; 

BSzSEG(AS,B(L1),A(L1)) 

PRINT BŠ 

PRINT "HOW MANY TIMES DO YOU WANT THE REPLACEMENT? "; 

INPUT H 

PRINT "J PLEASE TYPE IN THE PART TO BE REPLACED:" 

PRINT "IF THIS IS NOT THE FIRST OCCURANCE, YOU'LL BLOW IT!" 
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PAGENO: 19 
TITLE ABSTRACT NO: 


TEXT EDITOR 51/00-8038/0 


INPUT MŠ 
PRINT "JPLEASE TYPE IN THE REPLACEMENT OF THE ABOVE:" 
INPUT WS 
FOR 151 TO H 
FOR L=L1 TO T 
85=5%C (#25 ,8 (L) ,A(L)) 
P=POS (В5,М5, 1) 
IF Рей THEN 1770 
PRINT "J ->";BS 
BS=REP (WS , Р, LEN (MS) ) 
PRINT " ->";В5 
GO ТО 1782 
NEXT L 
IF L<=T THEN 1810 
PRINT "NOT FOUND! !G" 
GO TO 1870 
A(L)=LEN (BS) 
B(L)=LEN (AS) +1 
AS-REP(BS,B(L) ,@) 
NEXT I 
GOSUB 1880 
PRINT "REPLACEMENT COMPLETED" 
GO TO 1340 


REM CLEAN FILE ROUTINE 


DELETE BS 
N=MEMORY 
DIM BS (INT (N-170)) 
В5="" 
FOR I-1 TO T 
CS$-SEG (AS, B(I) , A(I)) 
IF LEN(BS)+LEN(CS)>INT(N-178) THEN 2060 
B(I)=LEN (85) +1 
A(I)-LEN(CS) 
В$=ВЕР(С$,В(Т),В) 
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PAGENO: 20 
ABSTRACT NO: 


TEXT EDITOR 51/00-8038/0 


NEXT I 

DELETE AS 

N=MEMORY 

DIM AS(INT(N-1780)) 

А$=В$ 

DELETE BS 

RETURN 

PRINT "NOT COMPLETED - WE'RE NEARLY OUT ОР MEMORY !G" 
GO TO 1349 


REM SAVE FILE ROUTINE 


DELETE BS 

N=MEMORY 

DELETE C$ 

DIM C$ (80) 

DIM BS (LEN (AS) +2*T) 

B$="" 

R$=CHR (13) 

FOR I=1 TO T 
C$=SEG(A$,B(I),A(I)) 
С$=С$&В$ 
B(I)sLEN(BS$)-41 
BS-REP(CS$,B(I),0) 

NEXT I 

DELETE AS 

N=MEMORY 

DIM AS (INT(N-178)) 

Абев5 

IF LEN(AS)=>LEN(BS) ТНЕК 2280 

PRINT "GSOME TEXT WAS LOST - NEARLY OUT OF MEMORY! !G" 

DELETE B$ 

PRINT "ENTER FILE NUMBER" 

PRINT "GBE SURE YOU HAVE A FILE MARKED THERE!" 

INPUT X 

FIND X 
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РАСЕ МО: 21 
TITLE ABSTRACT NO: 


TEXT EDITOR 51/00-8038/0 


PRINT @33:AS 

PRINT "YOUR TEXT/PROGRAM IS SAVED IN FILE $";X;"." 
PRINT "GOODBYE!" 

END 


REM RENUMBER ROUTINE 


PRINT "ENTER FIRST AND LAST LINES TO BE RENUMBERED (1,7) " 
INPUT H1,Ul 
PRINT "ENTER NUMBER WITH WHICH TO START AND INCREMENT (10,10) "; 
INPUT H,I 
Q=H-1 
IF Ul<=T THEN 2450 
рієт 
FOR L=H1 ТО Ul 
IF LEN(AS)«8900 AND MEMORY>908 THEN 2500 
PRINT "JWE ARE ALMOST OUT OF MEMORY! G" 
PRINT "RENUMBERING NOT COMPLETED!J" 
GO TO 2122 
B$=SEG(AS,B(L) ,A(L)) 
P-POS(BS," ",1) 
О=0+1 
05=5ТЕ (0) 
9$=0$&" " 
BS=REP(Q$,1,P) 
В5-5ЕС(В5,2,72) 
B(L)=LEN(AS)+1 
A(L)=LEN (BS) 
AS=REP(BS,B(L) ,0) 
NEXT L 
GOSUB 1880 
PRINT "RENUMBERING COMPLETE" 
GO TO 1340 
END 
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APPLICATIONS LIBRARY PROGRAM 
TITLE ABSTRACT NUMBER 
VARIABLE FONT PRESENTATION AID 51/00-8040/0 


ORIGINAL DATE REVISION DATE MEMORY REQUIREMENT 
April 1980 32K 


AUTHOR. PERIPHERALS | 


CEN. U.S. AMSAA қ 
Мав R Sebras Aberdeen Proving Ground Optional - 4662 Plotter 


ABSTRACT 


Statements: 331 
Files: 1 ASCII Program 
8 Binary Data 
(First 9 files on tape or reassign file = variables) 


The program produces a page of text, oriented in either a horizontal 
or vertical format, of high quality drawn characters suitable for 
projection as a presentation aid. Four fonts are available in 
various sizes for the text: 


Ronan 

Roman Italic 

Gothic 

Script 
Each , ne of text can have a different character size and a different 
margin selection (centered, right or left justified). The text is 


automatically centered on the page by the program. Output may be to 
the screen or the 4662 Plotter. 


The program materia! contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc., assumes no responsibility and 
shall have no liability, consequential or otherwise, of any kind arising from 
the use of this program material or any part thereof. 


000-6405-00 


TITLE | ABSTRACT МО. 


PAGENO: 1 


VARIABLE FONT PRESENTATION AID 51/00-8040/0 


DATA TAPE STRUCTURE 


File 
File 
File 
File 
File 
File 
File 
File 
File 


Data file (bi string) 
Data file (bi numeric) 
Data file (bi string) 
Data file i numeric) 
Data file i string) 
Data file i numeric) 
Data file i string) 


ОО со ~ з on {> су № не 
f£» Г» WWMM I — 


PROGRAM LOADING 


Press AUTOLOAD if the program is located on the first files 
of the tape, otherwise: 

FIND = (file number of program) 

OLD 

RUN or Press User-Definable Key #1 


The program must be executed once before the Parameters may be 
changed using the User-Definable Keys. 


OPERATING INSTRUCTIONS 


Once the program has been started (or restarted using User-Definable 
Key #1), it will step through the sequence of operations until the 
text is drawn. After the initial draw, the User-Definable Keys may 
be used. 


Device selection is made by entering either a 32 (screen) or 1 
(plotter) in response to the prompt. 


Font selection is made by entering the number corresponding to the 
font desired: 1 = Roman, 2 = Roman Italic, 3 = Gothic, 4 = Script. 
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РАбЕ МО: 2 
TITLE ABSTRACT NO: 


VARIABLE FONT PRESENTATION AID 51/00-8040/0 


Format selection is made by entering 1 for horizontal or 2 for 
vertical. Horizontal format draws each line of text parallel 
with the long dimension of the paper, vertical format draws 
each line parallel with the short dimension of the page. When 
using the plotter the page should always be set with the long 
dimension in the X direction. 


Text input is done in the following way. The screen is paged 
by the program and a heading is written at the top of the page. 


Margin Size Text 
For each input, the blinking prompt appears in the appropriate 
section. 

Margin - Margin is entered as one of the following: 

L = left justified 

R = right justified 

C = centered 
After a margin definition is input, subsequent 
entries need only a carriage return to be entered 
unless a change is to be made. 

Size - Size is entered as lines per page, but for versa- 
tility, non-integers may be entered. After a size 
is input, subsequent entries need only a carriage 
return to be entered unless a change is to be made. 

Text - Text is entered one line at a time. At least one 


Character must be entered, even if it is only a 
space. Text input is terminated when a carriage 
return is entered as the first character of a line. 


After the text has been entered, the program pages the screen and 
prints out the text, with appropriate adjustments for margins so 
that the screen reflects what will be drawn. At this time, the 
user has the opportunity to edit a line by deleting it, inserting 
a new line or changing margin or size definitions. 
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PAGENO: 3 
TITLE ABSTRACT NUMBER 


VARIABLE FONT PRESENTATION AID 51/00-8040/0 


тт. VARIABLE FONT TAPE я ЕЦЕ и 


FONT FORMAT 
SELECT W SELECT 


სა PREVIENE DRAW/ в DRAW 
| BORDER 


UDK з Function 


Start/restart runs the program from the beginning 

Device select 32 = screen, 1 = plotter 

Font select 1 = Roman, 2 = Roman Italic, 3 = Gothic, 4 = Script 
Format select 1 = vertical, 2 = horizontal 

Text input 


თ o > C гэ n 


Preview/edit the current text on the screen with normal alpha- 
numeric characters with adjustments to reflect the effect of 
the effect of the margin controls. The user may then edit the 
text by deleting lines, inserting lines, or changing margin 
definitions for a line. 


7 Draw/redraw draws the current text 
Draw border draws a full page border around the text 
10 Menu displays the list of User-Definable Keys and their functions 


000-6405-01 TEKTRONIX 4051 PROGRAM 


ü РАСЕМО 4 : 
Features of Variable Font 
Presentation 414 


І. Four different fonts. 
2. Horizontal or vertical format. 


right justified 


left justified 
4. Change of size 


from me 


5. Text preview/edit. 
6. Redraw with 1-5 changed. 
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PAGENO: 5 


й TITLE ABSTRACT NO. 
VARIABLE FONT PRESENTATION AID 51/00-8040/0 


Variable Font 
Жа 
line, 
ULO 


Features of 
— 
conlamedı 
| | | 


TTE Дә e C ABSTRACT №: 


Roman | 

Aa Bb wd s PEL 

Nn 0o Pp на Ss Т A w Xx IV Zz 
.. 0123456789 !"$&'()*=+;°?,./ 


Roman Italic 
Aa Bb б раб Краю far із Yu 
Nn бо Рр 00 Rr Ss Tt Uu Vu Ww Yr Ту 22 
0123456789 "$4 ()&4;"9,./ 


Gothic 
Aa Bb Cc Dd Ee Ff Gg Hh Ii Jj Kk Ll Mm 
Nn Qo Pp ба Rr Ss Tt Uu W Ww Хх W 77 
0123456789 !"$&'()*=4:°2,./ 


შეე Jj Kk Ll Mm 


In Oo ? ЖАП 
У И Бауды 
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і РАСЕ МО 


7 


TITLE ABSTRACT NO: 


VARIABLE FONT PRESENTATION AID 51/00-8040/0 


INTERNAL DATA STORAGE 
Variable Used to Store 


AS Temporary variable 


B Coordinate of line segment of current line 
to be drawn (GDU's - relative) 


Coordinate of line segment of current line 
to be drawn (GDU's - relative) 


Intermediate variable for character currently 
being drawn 


Number of lines of text plus one 


Cumlative number of characters, and width of 
line (GDU's) 


Position of line segment being drawn, and 
height and width of character being drawn 
(GDU's) 


ASCII representation of current line 
Temporary variable 

Temporary variable 

Spacing between lines of text 

Starting position of current line within text 


Character offset position in opposite direction 
from L1 (user units) 


ASCII equivalent points for current font 
Character set 


Temporary variable 
Maximum width of a line of text 


Constant for conversion of character size from 
lines per page to user units 


Character size of current line in user units 
Maximum width of line of text 
Character size of a line in lines per page 


Character offset position in opposite direction 
from H2 (user units) 


Temporary variable 
Temporary variable 


Type 
String (1000) 
Simple 


Simple 
String 


Simple 
Array (80,2) 


Array (100,3) 


String 
Simple 
String 
Array (80) 
Simple 
Simple 


String (7702) 


Simple 
Simple 
Simple 


Simple 
Simple 
Array (80) 
Simple 


Simple 
Simple 
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PAGENO: 8 
TITLE ABSTRACT NO: 


VARIABLE FONT PRESENTATION AID 51/00-8040/0 


Variable Used to Store 


Temporary variable 

Margin parameter for a line 

Temporary variable 

Temporary variable 

Temporary variable 

Temporary variable 

Read data file loop 

Temporary variable 

Temporary variable 

Text 

Input insert line 

Temporary variable 

Temporary variable String (1000) 
Temporary variable Simple 


Long dimension of page (130 for screen, 150 Simple 
for plotter) 


Device # (for output) Simple 
Current margin parameter Simple 


ry u TEKTRONIX 4051 PROGRAM 


S | PAGENO: 9 
TITLE ABSTRACT NO 


VARIABLE FONT PRESENTATION AID 51/00-8040/0 


4 GO TO 100 

8 GO TO 170 

9 END 

10 GO TO 176 
12 GO TO чос 
13 END 

16 GC TO 

17 EN 

ес 

21 ЕМ 

24 52 TO 

25 ЕК 

28 GO ТС 

29 END 

3e GO TO 

40 GO TO 

100 INIT 

110 DIM D(100,3),H8(7700) 
126 GOSUB 170 
130 GOSUB 400 
140 GOSUB 65C 
150 GOSUB 760 
160 GO TO 1252 
170 PAGE 


- 180 REM *** 51/00-8040/0 VARIABLE FONT PRESENTATION AID %%% 
190 REM 
200 REM *** DEVICE SELECTION 


210 PRINT USING "///""Select Device(32=Screen,1=Plotter) -""S": 
220 INPUT 2 

230 IF 2<>32 AND Z<>1 THEN 170 

240 м9=130%(2=32)+150%(221) 

250 WINDOW 0,W9,0,100 

260 VIEWPORT 0,W9,0,100 

270 RETURN 
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PAGENO: 10 
TITLE ABSTRACT NO 


VARIABLE FONT PRESENTATION AID 51/00-8040/0 


PRINT MENU 


о PRINT USING "32T""User Кеуз"""; 

| PRINT USING "///": 

PRINT USING """Key #1 ~ Start/Restart""/""Key #2 - Device select""": 
PRINT USING """key #3 - Font select""/""Key #4 - Format select""": 

i PRI USI """Кеу #5 - Text input""/""Key #6 - Text preview/rdit""": 
PRINT USING """Key #7 - Пгак/ Кедгак""/""Кеу #6 - Draw Богдег"""; 
PRINT USING ""'"Key #16 - Display this MENU": 

END 
PAGE 


FONT SELECTION 


PRI "JJJJ FONT: 1=КОМАМ 2= КОМАМ ITALIC 3=GOTHIC 4zSCRIPT "; 
INPUT ЕФ 

Ft-"O"&F$ 

Q=VAL(F$) 

IF Q<1 OR Q>4 THEN 280 

FIND Q%2 


REM 
READ FONT DATA FROM TAPE 
REM 


530 FOR P=1 TO 100 
540 FOR O=1 TO 3 

550 IF TYP(0)=1 THEN 590 
560 READ €33:D(P,0) 

570 NEXT O 
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"EC PAGE NO: 11 
у TITLE ABSTRACT NO: 


VARIABLE FONT PRESENTATION AID 51/00-8040/0 


NEXT P 

P=P-1 

FIND Q%o+1 

DIM D(P,3) 

DIM H$(D(P,1)) 
READ 633:H$ 
RETURN 


PAGE 


FORMAT SELECTION 


PRINT USING "///""Vertical(1) or Horizontal(2) 2 ""5": 
INPUT F9 

IF F9«0 OR F9>2 THEN 690 

K4=100*(F9=1)+W9*(F9=2) 

K1:=100*(F9=2)+W9*(F9=1) 

Қ2-К1/30 

RETURN 

РАСЕ. 


КЕМ 
REM TEXT INPUT 
REM 


C=1 

DIM C1(80,2),M9(80),H(80),L(80) 

M9=0 

H=0 

L=0 

PRINT USING """Margin Size""29T""Text""": 
SET CASE 

DELETE R$ 

DIM В%(2000),А%(1000),7%(1000) 

R$z"" 
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PAGE NO: 12 
TITLE ABSTRACT NO: 


VARIABLE FONT PRESENTATION AID 51/00-8040/0 


PRINT" "; 


“КЕМ 
КЕМ MARSIN DEFINITION ІМРУТ 
REN 


) INPUT M$ 
IF C=1 AND LEN(M$)=0 THEN 900 
IF LEN(M$)=9 AND C>1 THEN 990 
M9(C)=(M$="L")#1+(M$="P")#2+(M$="C")#3 
| 60 TE 1065 
M9(C)=M9(C-1) 
| PRINT USING """K'""9TS": 


SIZE INPUT 


INPUT M$ 

IF LEN(M$)=0 AND C=1 THEN 1000 
IF LEN(M$)>0 THEN 1090 
L(C)=L(C-1) 

GO TO 1110 

M$z"O"&M$ 

L(C)=VAL(M$) 

PRINT USING ""”K""1ł3rs": 


REM 
REM TEXT INPUT 
REM 


INPUT A$ 

IF LEN(A$)=0 THEN 1210 
C1(C,1)=LEN(R$) 

C=C+1 

R$=R$&A$ 
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TITLE 


PAGE NO: 13 
ABSTRACT NO: 


VARIABLE FONT PRESENTATION AID 51/00-8040/0 


000-6405-02 


GO TO 900 
C1(C,1)=LEN(R$) 

PRINT "End of text..... 
GO IO 2030 

RETURN 


DRAW TEXT 


FOR 1=1 IO C-1 

С1(1,2)=0 

NEXT I 
FCR 1-1 TC C-1 

K3=K2/L(1) 

FOR P=C1(1,1)+1 TO C1(I+1,1) 
B$=SEG(R$,P,1) 
B=ASC(B$)-31 
C1CI,2):2C1(I,2)4D(CB, 3) -D(B,2) 

NEXT P 

Н(І0-(12-180%53 

H1=H1+H(I) 

NEXT I 
H1zH1/2«W9/2*(F921)«450* (F9z2) 
HezH1«H(1)/e2 

FOR I=1 TO C-1 

K3=K2/L(1) 

HezHe-(HCI-(I»1))«HCI))/2 

Z1=M9(I) 

GO TO 21 OF 1530, 1580, 1630 


REM 


REM LEFT JUSTIFY 
REM 


TEKTRONIX 4051 PROGRAM 


PAGENO: 14 


TITLE ABSTRACT NO: 
VARIABLE FONT PRESENTATION AID 51/00-8040/0 
1539 11-0 

1540 GO ТО 1640 

1550 REM 

1560 REX XX RIGHT JUSTIFY XX 
1579 REM 

1585 1.1=К4-К3*С1(1,2) 

1590 GO TO 1640 

1606 Еге: 

1615 RE” XX CENTER XX 
1620 REM 

1630 L1z2(K4-K3*C1(I,22)/e 

1640 FOR P=C1(I,1)+1 ТО С1(1+1,1) 

1656 F$=SEG(R$,P,1) 

1662 М-А5С(Ғ%)-31 

1670 L1:L1-D(CN,2)*K3 

1680 GOSUB 1730 

1699 L1=L1+D(N,3)*K3 

1700 NEXT P 

1710 NEXT 1 

1720 END 

1730 REM 

1740 REM XX CHARACTER DRAW ROUTINE XX 
1750 REM 

1760 T=1 

1770 IF D(N,1)=D(N+1,1) THEN 2020 

1780 U=1 

1790 E$=SEG(H$,U+D(N,1),1) 

1800 B=ASC(E$) 

1810 E$=SEG(H$,U+1+D(N,1),1) 
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; РАСЕ МО: 15 
TITLE ABSTRACT NO 


VARIABLE FONT PRESENTATION AID 51/00-8040/0 


1820 В1=А$С(Е$) 

1830 B=80-5 

1840 B1z80-B1 

1850. =47 AND B1=47 THEN 2020 
1860 IF Б--46 AND В1--46 THEN 1995 
1870 IF Т-1 THEN 1930 

1880 IF F9=1 THEN 1910 

1890 DRAW @Z:B¥K 3401, ВИК 3442 
1900 GO TC 2660 

1919 DRAW 62:B1*K3«He,-B*£ 3-L 14106 
1920 GC TO 2000 

1930 IF F9=1 THEN 1962 

1940 MOVE €2:B*K34L 1, B1#K 3442 
1950 GO TO 1970 

1960 

1970 

1930 

1999 

2005 | 

2010 GO TC 1792 

2020 RETURN 

2030 PAGE 


2040 REM 
2050 REM EDIT TEXT 
2060 REM 


20790 FOR 121 ТО C-1 

2080 N1=C1(I+1,1)-C1(1,1) 

2090 M$z"T" 

2100 N$="4" 

2110 GO ТО M9(I) OF 2260,2170,2220 


2120 REM 
2130 REM PRINT A LINE 
2140 REM 
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2150. REM RIGHT JUSTIFIED 
2160 REM 


2170 N$=STR(73-N1) 
2180 GO TO 2260 


2190 REM 
2209 REM CENTERED 
2219 REM 


2229 N$=STRCINTC(77-N1)/2)) 


2239 REM 
22495 REM LEFT JUSTIFIED 
2255 REM 


2269 M$zN$&MS$ 

ее с M$z"2D1X"&MS$ 

2259 M$zM$&"S" 

2299 PRINT USING M$:I 

2300 M$=SEG(R$,C1(1,1)+1,N1) 
2319 PRINT M$ 

2320 NEXT I 

2330 PRINT "To edit a line, enter 1, else RETURN 
2340 INPUT M$ 

2350 IF LEN(M$)<>0 THEN 2370 

2360 RETURN 

2370 PRINT “Line # to be edited ?"; 
2389 INPUT L9 

2390 PAGE 


2400 REM PRINT LINE TO BE EDITED 


2410 PRINT "LINE # ";L9 
2420 N1=C1(L94+1,1)-C1(L9, 1) 
2430 N$=SEG(R$,C1(L9,1)+1,N1) 
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2440 
2450 
2460 
2470 
2480 
2499 
2500 
2519 


2520 
2536 
2540 


2550 
2569 
2519 
2582 
2599 
2600 
2610 
2620 
2630 


2640 
2650 
2660 


2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
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GOSUB 3039 

PRINT "Delete(1), insert(2), change size/margir.(3), or exit(CR)? "; 
INPUT M$ 

IF LEN(MS$)=9 THEN 2030 

IF ASC(M$)<49 OR ASC(M$)551 THEN 2450 

L8zVAL(M$) 

GO ТО L8 OF 2559; 2630; г939 

GO TO 2052 


REN 
REN DELETE A LINE 
RES 


С-С-1 

R$=REP("",C1(L9,1)+1,N1) 

FOR 1-!9 ТОС 
M9(I)=M9(I+1) 
L(I)=L(I+1) 
C1(1,1)=C1(I+1,1)-N1 

NEXT I 

GO TO 2030 

PAGE 


REM 
REM INSERT A LINE 
REM 


GOSUB 3030 
INPUT M$ 

IF LEN(M$)=0 OR (M$O"L" AND M$O"R" AND M$<>"C") THEN 2630 
M8=(M$="L") #14 (М$=" К") #24 (Мф="С")%3 

PRINT USING """K""gTS": 

INPUT S 

PRINT USING """K""13TS": 

INPUT A$ 

N1=LEN(A$) 
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IF N1=0 THEN 2630 

T$=SEG(R$,0,C1(L9+1,1)) 

Т$=Т$&А$ 

A$=SEG(R$,C1(L9+1,1)+1,C1(C,1)) 

R$-T$&A$ 

C=C+1 

FOR І-С-1 TO L9+1 STEP -1 
M9(I)=M9(I-1) 
L(I)=L(I-1) 
C1(I+1,1)=C1(I,1)+N1 

NEXT I 

M9(L9+1)=M8 

L(L9+1)=S 

GO TO 2030 


REM 
REM CHANGE MARGIN, SIZE 
REM 


PRINT "Margin(L,R,C) ? "s 

INPUT M$ 

IF M$<>"L" AND M$<>"R" AND M$<>"C" THEN 2930 
IF LEN(M$)=0 THEN 2930 
М9(1,92-(М%-"1")%1-(М%-"Е"0%2-(М5-"С")%3 
PRINT "Size ? 1; 

INPUT M$ 

IF LEN(M$)=0 THEN 2980 

L(L9)=VAL(M$ ) 

GO TO 2030 

GO TO M9(L9) OF 3040, 3060, 3080 

M$= "ти 

со то 3120 

M$z" Е" 

GO ТО 3120 

М$= "С" 
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REM 
REM PRINT TEXT HEADER ROUTINE 
REM 


PRINT USING """Margin 51те""29Т""Техї""": 
PRINT USING "3T1A9TFD.D29T43A":M$,L(L9),NS 
RETURN 


REN 
REM BORDER DRAW ROUTINE 
REM 
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ROMAN 


6 -8 8 
c -5 6 
es -9 9 
Ve 0 С 
г -1 © 
een 5 0 
ccm -1 3 
T - 5 
-7 7 
Ble -8 8 
5: ete i 
tte -5 6 
еес “le 
ana -5 
- + EE 
Веч -15 
222 = 10 
4 ete 19 
56 -10 19 
22 -19 te 
1322 -15 10 
1462 -10 10 
1545 -10 10 
1704 210 10 
1842 -5 6 
1906 -5 6 
1985 -5 6 
2034 -12 13 
2066 -5 6 
2114 -9 10 
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AHAD AGAR AHAN ~S ADAX “ХІ ЛЯ “АГА “АЯП “АЛАЙ і IHE S THN > TAN L ~~ TMA Z~ 
ATA ASA TWA INAH NAANA d~ HN TAD= У АЛА vA LNS Adr NEAN NALAM ALAR I | IA LA 
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~~ WAR~~A TAT ANS XC ЛАЗА АЧХ ПА МАПП s DIM TAN AO A EX LAN LAG і 71 
AN~~ANKONdAd за ~ ~ Ммапвад~ «A EXP A AN AMO УЗУ i IMLANNNMLXSADAHKIMF LANDO ИП 
ww KALE ~~SHYWOSd1L~~ON 1L~~MP LASWYAOLONWN 1 LXSDINTTWOC ACHA i і A dX ADM НАПИ 
БУХА e LAC 11205 ADAM BAND ЛОГАН IT DEDI AYNA MARS ISA 1911 іН 
Сем IM Wb N Лем 9 ОУ УАВХБИЈ (папи 1 15X0++იი1იძიM0++“ი IXWAOAOXLANSMOM 
N^ 113830 TWN ~~ (DICIT AW 111I a 1+“ БА Mer KWAN ЛОК ~ ~ 
20, A~~AOXWM TL APAN TIWAO~ NALC A N~~NLXSADAOX TAPS IOING TINONOISNL ~~. 1XI1X#–-– 
QM NAAN i і AO TWA 19X1XM TXWAO~~AOXSMLINGNWL 1S NO~~Ndf LC ћалнпо 3830 
TINCOISIAnCX1A040X106SMOMNA 11510 і і ADXI~~AHMI~~A IMA => АИХЯУ AUX LS ДИ ~“ АММА 
~~ARKN~ НОЖ ~~ INAX ~A JAN Y ABAA + ANON TTIW XP dC WALI WE DIN MNSO L1. 
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TITLE ABSTRACT NUMBER | 
51/00-8041/0 


BINARY DATA FILE DUPLICATOR 


ORIGINAL DATE REVISION DATE MEMORY REQUIREMENT 
February 1980 6K + Data Storage 
AUTHOR PERIPHERALS 
R. Molins National Polytechnic Institute 


Y. Juguet Grenoble, France 
ABSTRACT 


None 


Statements: 231 


Files: 1 ASCII Program 


The program copies the contents of a binary data file into another file, 
on the same tape or a different one, without using a peripheral device. 
The program reads the binary data from the file into memory, until the 
end of the file is reached or memory space is filled. 


ASCII characters "/" and "#" are used as logical record separators. The 
program allows the user to change the separator character if it is already 
used in the data. The program then reads the binary data from the file 
into memory. Each logical record is processed one at a time by convert- 
ing it to an ASCII character string. Each character, if not a separator, 
is linked to the previous one and so on until a separator is encountered. 
The separator is deleted after recognition of type of data involved and 
the resultant string is converted either into a string or numeric data. 
The string is then stored on the tape. Then it searches the target file, 
and writes each logical record after it recognizes and converts it into 

a string or a numeric variable. If necessary, this process is repeated 
until the complete file is duplicated. 


The program also allows the user to modify the contents of the file 
during the process of duplication. The modification can occur in one 
of two ways: 


1. Delete or change a logical record by addressing its assiqned 
number, or 


Systematically changing or deleting a specified logical record 
each time it is encountered in the data file. 


The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc., assumes no responsibility and 
shall have no liability, consequential or otherwise, of any kind arising from 
the use of this program material or any part thereof. 
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TITLE ABSTRACT NO: 


BINARY DATA FILE DUPLICATOR 51/00-8041/0 


The program is designed to duplicate binary data files only; it will 


not process binary program files, or any file type other than binary 
data. 
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BINARY DATA FILE DUPLICATION 51/00-8041/0 


METHOD 


Reading Routine 


Computation of available memory 

Initialization of Z$ = " " 

Recognition of the next logical record by ТУР(О) 

Reading of the record 

Conversion to an ASCII string 

Concatenation of a distinctive separator 

Concatenation into Z$ 

Within available memory return to the next logical record 


Filling memory without EOF occuring, the last record is located 
and control is passed back to the writing routine 


On EOF control is passed back to the writing routine 


Writing Routine 


Search of target file 

Determination of structure of the target file 

Position of the tape either at the beginning of the file or the end 
Analysis of the string Z$ character by character 


each character, if not a separator, is linked to the previous 
and so on until a separator is encountered. The separator is 
deleted after recognition of type of data involved and the 
resultant string is converted either into a string or 

numeric data. 


the string or data is stored on the tape. 


Duplication ends when the whole string Z$ has been analysed and 
transfered onto the tape. 
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TITLE ABSTRACT NO: 


BINARY DATA FILE DUPLICATOR 51/00-8041/0 


PROGRAM LOADING 


Press AUTOLOAD if the program is located on the first file on the 
tape, otherwise: 
FIND # (file number) 
OLD 
RUN 
Respond to the questions as they are asked. 
NOTE: The program will transfer only binary data files. If an ASCII 
file is attempted the program will abort and an error message 
will be displayed. 


The target file must be pre-MARked or emptied before beginning 
the writing phase of the program. 
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TITLE ABSTRACT NUMBER 


BINARY DATA FILE DUPLICATOR 51/00-8041/0 


я 
2 


FUNCTION 


Runs the main program section - transfer of the data from 
one file to another as it is. 


Alternate separator search routine - allows an alternate 
record separator to be specified 
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BINARY DATA FILE DUPLICATOR 51/00-8041/0 


DATA STORAGE 
Variable Used to Store Type 


Numeric data Simple 
String for reading or writing operations String 
Number of logical records to be changed Simple 
String of used separators String 


Number file of logical records to be Array (B) 
changed 


Character analysed from Z$ String 
Result from a test Array (13) 
Result from a test Simple 
String of available separators String 
Defines replacing mode Simple 
Source file or target file Simple 
Loop variable Simple 
Loop variable Simple 


1 


Source file number Simple 
Target file number Simple 
Number file of present logic record Simple 


E 
F 
I 
I 
J 
K 
L 
M 


Available memory Simple 
ТУР(0) from source file Simple 
TYP(0) from target file Simple 
Answer to "Same tape?" String 
Position of C$ in U$ Simple 
String to be changed systematically String 
Its substitute String 
Position of W$ in "YN" Simple 
Answer Y or N ` String 
String separator character String 
Numeric variable separator character String 
Length of Z$ | Simple 
Working string 
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TITLE ABSTRACT NO: 


BINARY DATA FILE DUPLICATOR 51/00-8041/0 


1 GO TO 100 

4 GO TO F OF 1150,920,270 
8 GOSUB 1760 

9 GO TO 310 


19 REM XXX 51/00-8041/0 *** COPY OF BINARY DATA FILES XXX 
20 REM #XXXXX WITH OPTION FOR CHANGE SOME LOGIC RECORDS ###### 


50 INPUT W$ 

51 W$-SEG(W$,1, 1) 

52 W=POS("YN" ,W$, 1) 

53 IF W=0 THEN 55 

54 RETURN 

55 PRINT "nen ur GGVALID ANSWERS ARE "пун" ОК пи уОпиний 

56 GO ТО 50 

60 FOR I=1 ТО 10 

65 PRINT "GG"; 

70 FOR I1=1 TO 10 

75 NEXT 11 

80 NEXT I 

85 RETURN 

100 PAGE 

110 PRINT " GGGG BINARY FILE DUPLICATION J" 

120 INIT 

130 PRINT "I ann o 

140 PRINT "I| LOAD SOURCE TAPE |" 

150 PRINT "I JJ" 

160 PRINT "THIS PROGRAM NEEDS LOGIC RECORD SEPARATORS. THEY ARE ASCII"; 
170 PRI " CHARACTERSJ I""-"" AND "mann, JJJJTHEY MUST BE ABSENT FROM "; 
180 PRINT "SOURCE FILE. IF NOT, YOU MUST CHOOSE ALTERNATE SEPARATORS." 
190 PRINT "I MAY HELP YOU,...................... PRESS UDK No 2" 

200 PRINT "JJIF THEY ARE ABSENT FROM SOURCE FILE, PRESS UDK No 1" 

210 F=3 

220 X$-"^" 

230 Y$="#" 

240 J=0 
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E=0 
END 
PAGE 


REM знанне [NITALIZE PARAMETERS — 39 


PRINT "JJJGINPUT SOURCE FILE NUMBER : "; 
INPUT J 

PRINT "JJGIS THE TARGET FILE ON THE SAME TAPE ?"; 

GOSUB 50 

T$zW$ 

PRINT "JJTAKE CARE ! THE TARGET FILE MUST BE EMPTY, OTHERWISE "; 
PRINT "THE CONTENT OF SOURCE FILE WILL BE WRITTEN AFTER ITS OWN "; 
PRINT "CONTENT." 

PRINT "JJGINPUT TARGET FILE NUMBER : "; 

INPUT K 

PRINT "LJJJJIWILL YOU CHANGE SOME LOGIC RECORDS ?"; 


GOSUB 50 

IF W=2 THEN 590 

PRINT "JWILL YOU REPLACE SYSTEMATICALLY ONE LOGIC RECORD "; 
PRINT "BY ANOTHER ONE ? "; 

GOSUB 50 

E=W 


IF E=2 THEN 520 

PRINT "JJWHAT IS THE LOGIC RECORD TO BE REPLACED 2"; 

INPUT 

PRINT J .——— quee SE AR RUM аары 

INPUT 

GO TO 

PRI "JJTHEREFORE YOU WILL REPLACE SOME LOGIC RECORDS GIVING Mk THE"; 
PRINT "IR SERIAL NUMBER ON THE TAPE !J" 

PRI "I AM BEGINNING TO READ THE TAPE FILE AND I'LL GIVE YOU EACH "; 
PRINT "LOGIC RECORDWITH ITS NUMBER FILE; JKEEP IT IN MIND,I'LL "; 
PRINT "ASK YOU LATER FOR ITS REPLACEMENT." 

FOR I=1 TO 2500 

NEXT I 
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M=MEMORY-500 
DIM Z$(M) 
Z$z"" 

L=1 

F=1 

PAGE 


REM НАННЕ SOURCE FILE RECORDING нн 


FIND J 
Т1-ТҮР(0) 
GOSUB Т1 ОҒ 750,1480, 1240, 1370 
IF Е<ұ2 ТНЕМ 710 
PRINT L;" и; А$ 
L=L+1 
Z$=REP(A$, 14LEN(Z$) , 0) 
IF LEN(Z$)gM-75 THEN 780 
GO TO 670 
PRINT "I JUST COMPLETED RECORDING SOURCE FILE GGGGG" 
PRINT "AND I'M STARTING ITS TRANSFER ONTO THE TARGET FILE." 
GO TO 800 
PRINT "I'VE READ A PART OF SOURCE FILE, BUT MY MEMORY IS FULL"; 
PRINT " JJI MUST COPY THIS PART BEFORE GOING AHEAD !" 
IF E«w2 THEN 890 
PRINT "JJJHOW MANY LOGIC RECORDS ARE TO BE CHANGED ? "; 
GOSUB 60 
INPUT B 
DIM C(B) 
FOR I1=1 TO B 
PRINT "LJJJJJ ENTER THE FILE NUMBER OF THE RECORD TO BE CHANGED 
INPUT C(I1) 
NEXT 11 


REM аи RECORDING ONTO THE TARGET FILE #XXXXX# 


F=2 
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>10 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


1120 


1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 


1230 
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ABSTRACT NO: 


IF T$z"N" THEN 1520 
FIND K 

T2=TYP(0) 

IF Т2<%0 THEN 1160 
FIND K 

Ag="" 

L=0 

B$=X$4Y$ 

Z=LEN(Z$) 

FOR I=1 TO Z 
C$=SEG(Z$,1,1) 
UzPOS(B$,C$,0) 
GOSUB U OF 1400,1280 
А%-А%%С% 

МЕХТ І 

CLOSE 

IF T1<p1 THEN 1110 

PRINT "LJJJJJJIMY JOB IS OVERJJJJJI GOOD BYE !" 

GOSUB 60 

END 

7%="" 


REM ###### POSITION OF R/W HEAD ON EOF ##XXXX 


F=1 

IF T$="N" THEN 1540 

FIND J 

FOR І-1 TO L-1 
IF F=2 AND I=1 THEN 1190 
T2=TYP(0) 
GOSUB T2 OF 960, 1480, 1240, 1370 
DELETE A$ 

NEXT I 

GO TO F OF 670,960 


REM ***** SUBROUTINE READ OR WRITE DATA xs 
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TITLE ABSTRACT NO: 


BINARY DATA FILE DUPLICATOR 51/00-8041/0 


1280 READ 633:A 

1250 A$=STR(A) 

1260 A$=A$&Y$ 

1270 RETURN 

1280 L=L+1 

1290 GOSUB E OF 1580,1610 

1300 IF A$<#"" THEN 1320 

1310 GO TO 1360 

1320 A=VAL(A$) 

1330 А$="" 

1340 Сф="" 

1350 WRITE А 

1360 RETURN 

1370 READ @33:A$ 

1380 A$-A$&X$ 

1390 RETURN 

1400 L=L+1 

1410 GOSUB E OF 1580, 1610 

1420 IF A$<g"" THEN 1440 

1430 GO TO 1470 

1440 WRITE A$ 

1450 Age" 

1460 Cg="" 

1470 RETURN 

1480 PRINT "JJTHIS FILE IS NOT A BINARY DATA FILE. JI'VE NOT BEEN PRO"; 
1490 PRINT "GRAMMED FOR ITS TRANSFER !" 
1500 GOSUB 60 

1510 END 

1520 FOR I=1 TO 200 

1530 NEXT I 

1540 PRINT "LJJJIPLEASE CHANGE YOUR TAPE !" 
1550 PRINT "JJJ AND GIVE ME CONTROL BY PRESSING UDK No 1" 
1560 GOSUB 60 

1570 END | 

1580 IF А%<%0% THEN 1600 
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1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 


1750 


1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
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A$=V$ 
RETURN 
FOR I1=1 TO B 
IF L<wC(11) THEN 1730 
PAGE 
PRINT "JJJJLOGIC RECORD No ";L;" IS : ";A$ 
PRINT "JJENTER YOUR CORRECTION !" 
PRINT "JJIF YOU ENTER """;X$;""",THE FILE WILL BE CLOSED JIAND "; 
PRINT "FOLLOWING RECORDS WILL BE LOST." 
IF U-1 THEN 1710 
PRINT "JJTAKE CARE, CORRECTION MUST BE A NUMERIC VALUE "; 
MOVE 10,40 
INPUT A$ 
IF A$-X$ THEN 1060 
NEXT I1 
RETURN 


REM ####### SEARCH OF ALTERNATE SEPARATORS ee 


PAGE 
MOVE 20,50 
PRINT "JJJGINPUT SOURCE FILE NUMBER : 
INPUT J 
PAGE 
MOVE 0,50 
PRINT "THIS SEARCH MAY BE TEDIOUS AND TIME CONSUMING." 
PRINT "BE PATIENT, I'LL LET YOU KNOW WHEN I'VE COMPLETED MY JOB." 
D$z"^4[$2&':*G8«p!" 
DIM D(12) 
Dz1 
FIND J 
Т1-ТҮР(0) 
GOSUB T1 OF 2020,1480,1980,2000 
IF T1=3 THEN 1880 
FOR I=1 TO LEN(A$) 
C$=SEG(A$, 1,1) 
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D1=POS(D$,C$,1) 
ЈЕ D1=0 THEN 1960 
D(D1)=0 

NEXT I 

GO TO 1880 

READ @33:A 

RETURN 

READ @33:A$ 

RETURN 

[Е SUM(D)y1 THEN 2060 

PRINT "I'VE NOT FOUND VALID SEPARATORS. YOU MUST RECALL LINE 1840"; 

PRINT " AND REPLACE SOME OF THE POSSIBLE SEPARATORS BY OTHER ONES" 

END 

=] 

IF D(I)=0 THEN 2110 

X$=SEG(D$, 1,1) 

р(1)=0 

GO ТО 2130 

I=I+1 

GO TO 2070 

I=1 

IF D(I)=0 THEN 2180 

Y$=SEG(D$,I,1) 

D(I)z0 

GO TO 2200 

I=I+1 

GO TO 2110 

GOSUB 60 

GO TO 310 
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TITLE | ABSTRACT NUMBER то 
| Overlay Drawing Program 51/00-9537/0 
ORIGINAL DATE VISION DATE MEMORY REQUIREMENT 
February 1980 16K 
AUTHOR € А PERIPHERALS 
ektronix, Inc. 
LeRoy Nollette Wilsonville, OR 4662 Plotter 


ABSTRACT 


Statements: 250 
Files: 1 ASCII Program 

2 ASCII Data (Sample Overlays) 
Optional - Pre-MARked data files 


The program draws an overlay on the 4662 Plotter that can be cut 
out and placed over the User-Definable Keys. Key descriptions 
may be entered from the keyboard. Data may be saved on a pre- 
MARked data file and redrawn at a later date. 


The program may be modified (one line of code) to draw a large 
copy of the overlay and then reduce it on a copy machine having 
reduction capabilities. 


By changing one line of code the user may preview the overlay on 
the screen. 


The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc., assumes no responsibility and 
shall have no liability, consequential or otherwise, of any kind arising from 
the use of this program material or any part thereof. 
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DESCRIPTION 


The program allows the user to create a very nice, printed 
overlay using the 4050 Series Desktop Computer and the 4662 
Plotter. The printed overlay may be cut out and glued to 
an overlay. 


The titles and key descriptions may be saved to a pre-MARked 
file, allowing the user to print the overlay again at a later 
time. 


OPERATING INSTRUCTIONS 


The 4662 Plotter should be on and set to the default page size 
(same as when turned on). The device address should be set at 
1 (factory setting). If the device address is not 1 change 
the value of T in line 120 to the correct address. 


Load a ptece of paper and remove the pen cap. 


Press AUTOLOAD (if the program is located on the first file) 
or: 


FIND # (ftle number) 
OLD 
RUN 


Respond to the questions as they are asked. 
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Program Execution 


OVERLAY DRAWING PROGRAM 
СІОТЕРЕ 

(2xKEYBORRD 

¿3>BLñHkK 


SELECT SOURCE OF KEY LABELS 


(1) TAPE 


Allows the user to draw an overlay that has been created 
and saved on a pre-MARked tape file. 


(2) KEYBOARD 


Allows the user to enter from the keyboard the titles and 
key labels. 


(3) BLANK 


Allows the user to draw a blank overlay. 
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(1) TAPE 


OVERLAY DRAWING PROGRAM 


¿1 TAPE 
«2 KEYBOARD 
CJ» BLANK 


SELECT SGURCE OF KEY LABELS 1 
INPUT FILE NUMBER 


Input the file number of the overlay to be drawn. 

The plotter pen will move to the lower left corner. 

The pen may be positioned to any location. Be sure to leave 
sufficient room to the right and above to draw the overlay. 
The pen position will be the lower left corner of the overlay. 


When the pen is in position press the CALL button on the 
plotter. The overlay will then be drawn. 
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TITLE ABSTRACT NO: 


Overlay Drawing Program 51/00-9537/0 


Frample of file 2 


THIS IS THE TITLE OF THE OVERLAY FOR THIS RUN 


Example of file 3 


TITLE - UP TO S3 CHARACTERS 


TITLE-18 CHARACTER 


EEE EN EEE 
FE Fame A МА 
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TITLE ABSTRACT NO: 


Overlay Drawing Program 51/00-9537/0 


(2) KEYBOARD 


OVERLAY DRAWING PROGRAM 


C15 TAPE 
C2 KEYBOARD 
CS BLANK 


SELECT SOURCE OF KEY LABELS 2 
PLEASE ENTER THE TITLE OF THE OVERLAY 


HOW HANY LIHES IM DESCRIPTION OF KEY 11 2 
ENTER DESCRIPTION OF LINE 1 FOR KEY 11 
ENTER DESCRIPTION OF LINE 2 FOR KEY 11 


HOW MANY LINES IN DESCRIPTION OF KEY 12 1 
ENTER DESCRIPTION OF LINE 1 FOR KEY 12 


HOW Ману LINES IM DESCRIPTION OF KEY 13 6 


The title of the overlay may contain up to 53 characters. 

The title on the left edge may contain up to 18 characters. 
The title on the right edge may contain up to 18 characters. 
The key labels may contain up to 2 lines of 9 characters each. 


The program asks for the number of lines of data for each 
Rey; if по label is desired enter f. 


DO YOU WANT THE DATA STORED ТО TAPE HO 


The plotter pen will move to the lower left corner. 
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PAGENO: 6 
TITLE ABSTRACT NO: 


Overlay Drawing Program 51/00-9537/0 


The pen may be positioned to any location. Be sure to leave 
sufficient room to the right and above to draw the overlay. 
The pen position will be the lower left corner of the overlay. 


When the pen is in position, press the CALL button on the 
plotter. The overlay will then be drawn. 


ро YOU НАНТ THE DATA STORED ТО TAPE YES 
INPUT FILE NUMBER 


Input the file number of a pre-MARked file for the data to be 
saved. 


The plotter pen will move to the lower left corner. 

The pen may be positioned to any location. Be sure to leave 
sufficient room to the right and above to draw the overlay. 
The pen position will be the lower left corner of the overlay. 


When the pen is in position press the CALL button on the 
plotter. The overlay will then be drawn. 


NOTE: Files should be marked for 1000 bytes. 
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PAGENO: 7 


ABSTRACT NO: 


TITLE 


Overlay Drawing Program 51/00-9537/0 


(3) BLANK 


OVERLAY DRAWING PROGRAM 
CL TAPE 
(2 KEYBOARD 
«3 BLANK 


SELECT SOURCE OF KEY LABELS 3 


The plotter pen will move to the lower left corner. 


The pen may be positioned to any location. Be sure to leave 
sufficient room to the right and above to draw the overlay. 
The pen position will be the lower left corner of the overlay. 


When the pen is tn position press the CALL button on the 
plotter. The overlay will then be drawn. 


ЕЕ 


~QVERLAY~ 
by LeRoy Nol lette 
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PAGENO: 8 
TITLE ABSTRACT NO: 


Overlay Drawing Program 51/00-9537/0 


SPECIAL FEATURES 


Screen Preview 
The overlay may be previewed on the screen. The character 
rotation and the variable character sizes are not available 
on the screen. A full screen version will be displayed. 


Change: 
120 T=1 to 120 T=32 


Enlarge Overlay 


The overlay may be enlarged and then reduced on a copy machine 
with reduction capabilities. 


Line 700 is currently: 
700 S1=1 

If a copy machine reduces 64%, change line /00 to: 
700 51=.64 


the resulting plot would be 64% larger and after being reduced 
would give a clear picture the proper size for an overlay. 


000-6405-02 TEKTRONIX 4051 PROGRAM 


9 


PAGE NO: 
ABSTRACT NO: 


-9537/0 


51/00 


Е 
Це) 
s= 
с” 
о 
5. 
a 
о 
= 
“- 
= 
© 
~ 
с» 
> 
ro 
= 
ы 
თ 
> 
о 


8119| |oN Aoge7 Aq 


ор ззампмј в ззаном| 8 ззампмј 4 Узаяйпмі 9 
АЗУ 33SN| A33 3Y3SN| АЗЯ s3sn| A353 wasn] АЗУ NH3Sn 


OZ 'ON 61 "ON 9i “ON LV СОМ 9) "ON 
АЗУ 9350) A3 _ 33SN| A33 33SN| АЗЯ N3Sn| A3» NH3Sn 


зліз 'ON| emos “омбзнна. ‘ом| ома ‘ом | змо ‘ON 

334 a3sn| дам შ39ი) АЗУ aasn| АЗУ 935ი) A3» wasn 
S! Ф vl + €! + | зллзмі з 

A33 язеп| дам маєгі дам wasn! A33 wasn] АЗ 33Sñn 


№ SIHL 303 АУЛЯЗЛО JHL 30 31111 “НІ SI SIHL 


«Нуч90ча AVTAIAD- 


TEKTRONIX 4051 PROGRAM 


000-6405-02 


PAGE NO: 10 
ABSTRACT NO: 


-9537/0 


51/00 


є 
с 
© 
с 
о 
5. 
а 
о 
= 
Джа 
= 
с 
L 
с 
> 
© 
— 
ы 
თ 
> 
о 


JJLIVAVHO 81-31111 


уз YVHI фуз YVHO 8 V3 нуно фуз зуно 6 V3 зуно 
S3NTT 2| SANIT 2| S3NTT >) SANIT г] S3NIT г 


үз муно 8 ҮЗ YVHD 8 V3_Y3VHI уз муно 
S3NTT 2| S3NI1 2| SANIT 2 S3NIT г 


уз NVHO G V3 зуна уз чуно 8 V3 HYH2 


S3NI! 2| SANIT г S3NI1 г] S3NI! 2 


уа ЧҮН5 G V3 HVHO ҮЗ зуна 
S3NTT 2| S3NI1 2| S3NIT г] S3NIT 2| SANIT 2 


AJLIVIVHO 81-3111 


СЯЗІЗУМУНО ES OL ძი - 31111 


TEKTRONIX 4051 PROGRAM 


000-6405-02 


PAGE NO: 11 
TITLE ABSTRACT NO: 


Overlay Drawing Program 51/00-9537/0 


THIS IS THE TITLE OF THE OVERLAY FOR THIS RUN 


USER KEY JUSER KEY [USER KEY [USER KEY 

|== же PRE pes [ег ете] 
USER KEY [USER KEY JUSER KEY [USER KEY [USER KEY 
NO. ONE | NO. TWO JNO. THREE]NO. FOUR |NO. FIVE 


USER KEY |USER KEY |USER KEY [USER KEY [USER KEY 
NO. 16 NO. 17 NO. 18 NO. 19 NO. га 


USER KEY JUSER KEY jJUSER KEY JUSER KEY JUSER KEY 
NUMBER 6 ¡NUMBER 7 ¡NUMBER 8 |NUMBER з |NUMBER 18 


“OVERLAY PROGRAM~ 
by LeRoy Nollette 


TITLE - UP TO 53 CHARACTERS 
2 LINES |2 LINES |2 LINES |2 LINES | 2 LINES 
p CHAR EAB CHAR EA D CHAR ЕА p CHAR EAP CHAR EA 
2 LINES [2 LINES |2 LINES |2 LINES [2 LINES 
p CHAR ЕА В CHAR EA СНАЯ EA p CHAR EA p CHAR ЕА 
2 LINES |2 LINES |2 LINES |2 LINES [2 LINES 
р CHAR EA B CHAR EA B CHAR EA B CHAR EA p CHAR EA 
2 LINES [2 LINES |2 LINES |2 LINES [2 LINES 
р CHAR EA B CHAR EA р CHAR ЕА B CHAR EA B CHAR EA 


TITLE-18 CHARACTER 
TITLE-18 CHARACTER 
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OVERLAY DRAWING PROGRAM 
by LeRoy Nollette 
Tektronix, Inc. 
Beaverton, OR 97077 
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SET DEGREES 

ТЕЛ 

РАСЕ 

K=130+20*(T=1) 

VIEWPORT 0,K,0,100 

WINDOW O,K,0,100 

DIM A$(800),B$(200) 

REM TITLE 

А$="<" 

REM LEFT SIDE VERTICAL 
A$=A$&"° O V E R L A Y <" 
REM RIGHT SIDE VERTICAL 
A$zA$&"by LeRoy Nollette<" 
REM KEY 11 

A$zA$&"c" 


REM KEY 12 


А$-А$&"<" 
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TITLE ABSTRACT NO: 


Overlay Drawing Program 51/00-9537/0 


REM KEY 13 


A$-A$&"<" 


REM KEY 14 


А$=А$&"<" 


REM KEY 15 


А%-А%%"<" 


КЕМ KEY 1 


А$=А$&"<" 


REM KEY 2 


A$-A$&"c" 


REM KEY 3 


А%-А%%"<" 


КЕМ KEY 4 


А%-А%%"<" 


КЕМ KEY 5 


A$-A$&"<" 


REM KEY 16 


А%-А%%"<" 
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TITLE | ABSTRACT NO: 


Overlay Drawing Program 51/00-9537/0 


REM KEY 17 


А$=А$&"<" 


REM KEY 18 


A$-A$&"c" 


REM KEY 19 


А$=А$&"<" 


REM KEY 20 


Аў=А$&"<" 


REM KEY 6 


A$zA$&'"«" 


REM KEY 7 


А$=А$&"<" 


REM KEY 8 


А$=А$&"<" 


REM KEY 9 


А%-А%%"<" 


КЕМ КЕҮ 10 


А%-А%%"<" 
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Overlay Drawing Program 51/00-9537/0 


GOSUB 1920 


REM S1 is the scaling factor (usually 1) 
REM if you have a coping machine that reduces 70% 
REM you can enter S1=.70 to produce large copy to be reduced. 


IF T=1 THEN 780 
Х=0 

Yz5 

$120.35 

MOVE @T:X,Y 

SCALE 51,51 

GO TO 810 

PRINT @T:"G"; 
PRINT @T,21:5,5 
INPUT @T,27:X,Y 
MOVE @T:X,Y 

SCALE 51,51 

X=0 

Y=0 

FOR I=0 TO 0.3 STEP 0.1 
RDRAW @T:0,25 
RDRAW @T:45+I,0 
RDRAW @T:0,-(25+1) 
RDRAW @T:-(45+I),0 
RDRAW @T:0,I 

NEXT I 

RMOVE @T: 1, 23 
5-1/51 

PRINT 6Т,17:0.8%5,1.8%5 
PRINT @32,17:4 

P=0 

GOSUB 1870 
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1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


TITLE 


Overlay Drawing Program 


980 PRINT @T:B$; 
990 MOVE @T:X+2, Y+6 


000-6405-02 


GOSUB 1870 

IF T=1 THEN 1120 
INPUT @T,24:X5,Y5 
PRINT @T,21:X5, Y5+LEN(B$)*3-9 
INPUT @T,24:X5,Y5 

FOR J=1 TO LEN(B$) 

PRINT @T,21:X5,Y5 
C$=SEG(B$,J,1) 

PRINT @T:C$; 

Y5zY5-3 

NEXT J 

GO TO 1140 

PRINT 6T,25:90 

PRINT @T:B$; 

GOSUB 1870 

MOVE @T:X+44,Y+7 

IF T=1 THEN 1270 

INPUT @T,24:X5,Y5 

PRINT €T,21:X5,Y5+LEN(B$)*3-9 
INPUT @T,24:X5,Y5 

FOR J=1 TO LEN(B$) 

PRINT @T,21:X5,Y5 
C$=SEG(B$, Jd, 1) 

PRINT @T:C$; 

Y5zY5-3 

NEXT J 

GO TO 1290 

PRINT @T:B$; 

PRINT 6Т,17:0.8%5,0.8%5 

PRINT 6T,25:0 

PRINT 832,17:2 

X=X44 

FOR Y1=Y+4 TO Y+15 STEP 11 
FOR X1=X TO X+30 STEP 7.5 
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TITLE ABSTRACT NO: 


Overlay Drawing Program 51/00-9537/0 


MOVE @T:X1,Y142.5 
DRAW @T:X1+7.5,Y1+2.5 
DRAW @Т:Х1+7.5,У1+2.5+2.5 
DRAW @T:X1,Y1+2.5+2.5 
DRAW @T:X1,Y142.5 
MOVE @T:X1,Y1 

DRAW @T:X1,Y1-2.5 
DRAW 6Т:Х1+7.5,У1-2.5 
DRAW @T:X1+7.5,Y1 
DRAW @T:X1,Y1 

NEXT X1 

NEXT Y1 

FOR Y1=Y+4 ТО Y+15 STEP 11 
MOVE 6Т:Х,Ү1 

RDRAW 6T:-0.5,0 

RDRAW @T:0,2.5 

RDRAW €T:0.5,0 

RDRAW ӨТ: 

RDRAW 6T: 

RDRAW ӨТ: 

RDRAW 6T: 

RDRAW 6T: 

RDRAW 6T: 

RDRAW 6T: 

RDRAW 6T: 

RDRAW 6T: 

RDRAW 6T: 

MOVE 6T:X415,Y145.5 
PRINT @T:"SHIFT KEYS"; 
NEXT Y1 

PRINT @T,17:0.8%S, 1*S 
DATA 19,14,8,3 
RESTORE 1650 

FOR J=1 TO 1 

READ Y1 ` 

Y1=Y+Y1 
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TITLE ABSTRACT NO: 


Overlay Drawing Program 51/00-9537/0 


FOR X1=X TO X+30 STEP 7.5 
MOVE @T:X1+3.9,Y1 

GOSUB 1870 

L1=LEN(B$) 
P1=POS(B$,">",1) 

IF P1=0 THEN 1790 
C$=SEG("JHHHHHHHHHHHHHHHH", 1, INT(P1/2+(L1-P1)/2+0.5)) 
B$=REP(C$,P1, 1) 

GO TO 1810 

RMOVE €T:0,-0.5 

P1=L1 

RMOVE 6T:-(P1/2*0.8),0 
PRINT @T:B$; 

NEXT X1 

NEXT J 

X=X-4 

END 


REM SELECT B$ ROUTINE 


Q=P+1 
P=POS(A$,"<",Q) 
B$=SEG(A$,Q,P-Q) 
RETURN 


REM CREATE THE OVERLAY TEXT 


PRINT "OVERLAY DRAWING PROGRAMJ (1)TAPE_(2)KEYBOARD " 
PRINT "(3)BLANK J SELECT SOURCE OF KEY LABELS "; 
INPUT A1 

GO TO A1 OF 1980, 2030, 2020 

GO TO 1930 

PRINT "INPUT FILE NUMBER "; 

INPUT F 

FIND F 

INPUT @33:A$ 
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GO TO 2500 
PRINT "PLEASE ENTER THE TITLE OF THE OVERLAY " 

PRINT USING "53" Ни 

ТМРОТ А$ 

А$=А$&"<" 

PRINT "ENTER THE TITLE ON LEFT EDGE ОЕ OVERLAY "; 
PRINT USING иди" "ი Panos 

INPUT B$ u u 

В$=В$&"<" 

А$=А$&В$ 

PRINT "ENTER THE TITLE ON RIGHT EDGE ОЕ OVERLAY "; 
PRINT USING пъди" ни" УДАЈЕ 

INPUT B$ u u 

В$=В$&"<" 

А$=А$&В$ 

DATA 11, 12, 13,1%, 15, 1,2, 3,4,5, 16,17, 18, 19,20,6,7,8,9, 10 
RESTORE 2170 

FOR I=1 TO 20 

READ A1 

PRINT "JHOW MANY LINES IN DESCRIPTION OF KEY ";A1;" "; 
INPUT J1 

IF Ј1=0 THEN 2520 

IF J1>2 THEN 2210 

Вђ="" 

DIM Ј2(2) 

Сфа"" 

FOR J=1 TO J1 

PRINT "ENTER DESCRIPTION OF LINE ";J;" FOR KEY ";A1;" и; 
PRINT US ING "9 пн ни , 9" "Ни" $" : 

INPUT C$ u u 

J2(J)=LEN(C$) 

C$-C$&"»" 

B$-B$&C$ 

NEXT J 

B$-REP("«",LEN(B$) , 1) 

A$-A$&B$ 
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2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
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NEXT I 

PRINT "DO YOU WANT THE DATA STORED TO TAPE 
INPUT K$ 

IF LEN(K$)=0 THEN 2500 

K$=SEG(K$, 1, 1) 

GO ТО POS("YN",K$,1)«1 OF 2390, 2450, 2500 
GO TO 2390 

PRINT "INPUT FILE NUMBER "; 

INPUT F 

FIND F 

PRINT @33:A$ 

CLOSE 

PRINT @T:"L"; 

RETURN 

В$="<" 

GO TO 2370 
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ABSTRACT 


Peripherals: 4907 File Manager Tc AE Ir 
4952 Joystick for screen display s: 
or 4662 Plotter 


Statements: 1249 


Files: 7 Binary Program 
Requires data files 


The program draws a pie chart on either aà 4050 Screen or 4662 Plotter. 
Data for the chart may be entered directly through the keyboard, read 
from tape or read from disk. 


Maximum of 3 title lines; maximum of 64 characters per title line 
Maximum of 10 segments 
Maximum of 25 characters per segment label 
Segment values may be those entered by the user or computed as 
percentages of the total 
Segment separation options: 
` All separated 
One separated 
None separated 
User positions segment labels and values 
Segment labels and values may be inside, outside or not displayed 
Segments drawn on the Plotter may be multi-colored 
10 User-Definable Keys manipulate the data: 
Save Plot (tape or disk) 
Display Data (titles, segment text and values) 
One Color Plot (4662) 
Multi-Color Plot (4662) 
Screen Plot 
Title Change 
Segment Text and Value Chana? 


The program material соптаїсед herein is supplied without warranty or 
representation of any kind. Tektronix, Іпс., assumes no responsibility and 
shall have no liability, consequential or otherwise, of any kind arising from 
the use of this program тате іа! or any part thereof. 
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ENHANCED PIE CHART 


Add Seaments 

Delete Segments 

Chart Border (draws page borders) 
End 

Restart 


РАСЕ КО 1 


ABSTRACT КО 


51/07-9539/0 


A main program calls overlays from the 4907 File Manager. 
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METHOD 


The program prompts the user for the source of chart data. Depending 
on the user response, the program reads the data from tape or disk or 
prompts the user for the required data to be entered in the following 
order: 

1. Titles 

2. Number of segments 

3. Segment values and labels 
Each data entered by the user is edited for reasonableness and compliance 


to program limitations. Changes to data in memory are effected throuqh 
the User-Definable Keys. 


The pie chart may be drawn on the 4050 Screen or 4662 Plotter; each 
output being the function of a subroutine. 


Drawing on the 4050 Screen 


The program prompts the user for the following: 


1. Segment labels printing option 
Symbol to be printed with segment values. 


Values to be printed, raw user input or calculated percentage 
of segment to total pie 


4. Percentage of window to be allocated to the circle 
Segment separation option and percentage of separation if any 
6. Positioning of titles if any 
All the required instructions for the positioning of the cursor for 


segment labels and pointers where required are displayed on the screen 
and the user is given the option of making a hard copy of the instructions. 


The pie chart is drawn on the screen segment by segment. The attention 
bell is rung after each segment has been drawn and the current cursor 
position is displayed to assist the user to position the cursor for 
segment label and pointer where required. 


A hard copy of the complete pie chart is made for the user by the program 
before any further instructions are displayed on the screen. 
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ENHANCED PIE CHART 51/07-9539/0 


Drawing on the 4662 Plotter 


The program prompts the user for the following: 


Lower left corner of plotting area 

. Upper right corner of plotting area 

Width and height of characters in the title 

Positioning of the title 

Segment labels printing option 

Symbol to be printed with segment value 

Segment value to be printed, raw user input or computed percentage 


Width and height of characters in segment labels 


о On თ თ >. б FS кє 


Segment separation option 
Percentage of segment separation if separation is required 


= 
о 


11. Position of center of pie 
12. Position of top of pie 


After all the segments of the pie chart have been drawn, the user is 
prompted by messages on the screen to position the plotting pen for 
segment labels and pointers where necessary. To assist the user the 
plotting pen is moved under program control to the midpoint of the 
arc of the segment for which a label is to be printed. For all 
labels to be printed on the right side of the pie chart, the program 
schecks whether the full text will fit the available space between 
the pen position and the right margin of the plotting area. If 
adjustment of pen position is required, this is made by the program 
to either print the entire label on one line or on multiple lines. 
The user's responses to programmed prompts are in the Yes/No form. 
For all labels to be printed on the left side of the pie chart, the 
pen, after it has been positioned by the user, is moved to indicate 
where the segment label will end if printed on one line. The options 
available to the user are: 


1. The label should be printed on one line 
2. The label should be printed on multiple lines 
3. The plotting pen is to be repositioned for another check 
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PIE CHART 


MAIN MODULE 
@PIECHR/MAIN 


SAVEPLOT PAGE BORDER 
OPTECHR/SAVEPLOT @PIECHR/BORDER 


DELETE 
ADD SEGMENT SEGMENT SCREEN PLOT 4662 PLOT 
@PIECHR/ADDSEG @PIECHR/DELSEG BPIECHR/SCREENPL OPIECHR/PLOT4662 
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PROGRAM DATA FILES 


Data Structure and Storage 


All user supplied and system generated data is stored in Binary 
format on either tape or disk. Tape files must have been previously 
marked. Disk files, if not already in existance, will be created 
and assigned a user supplied name prefixed with "@PIECHR/". Where 
the data had been previously stored and then read into memory, the 
number of the tape file or the name of the disk file from which 

the data was read will be displayed if the same storage media is 
selected by the user. 


Program Files 
All of the following modules are stored on disk. 


Fu @PIECHR/MAIN - This is the control module of the pie chart 
program. It defines the User-Definable Keys, 
collects chart data, displays the chart data 
and controls the overlaying of subroutines. 


ЈИ @PIECHR/ADDSEG - The function of this subroutine is to add 
segments to an existing pie chart. 


@PIECHR/DELSEG - This subroutine deletes specified segments 
from and existing pie chart. 


GPIECHR/SCREENPL - This subroutine draws the pie chart on the 
4050 screen. 


@PIECHR/PLOT4662 - This subroutine draws the pie chart on the 
4662 Plotter. 


წელის. @PIECHR/SAVEPLOT - The function of this subroutine is to write 
| the chart data currently in memory on a 
user specified media - tape or disk. 


GPIECHR/BORDER - This subroutine draws a page border around 
the defined plotting area on the 4662 Plotter. 
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PROGRAM LOADING 


The main program and subroutines are stored on disk. The main program 
may be loaded under the control of another program or with the command: 


OLD "@PIECHR/MAIN" 


The required subroutines are loaded from disk by the main program with 
the command: 


APPEND "@PIECHR/Subroutine";line number 


PROGRAM EXECUTION 


The main program “@PIECHR/MAIN" resides in memory throughout execution. 
All subroutines are requested through the User-Definable Keys. Each 
Subroutine is assigned a number and when its corresponding User-Definable 
Key is pressed, a variable used as a switch is set to the subroutine's 
assigned number. Control is then passed to an overlay control module 
which compares the switch indicating the required subroutine to another 
switch indicating the subroutine last loaded into memory. If the re- 
quired subroutine is already in memory, control is passed directly to 
the subroutine. If it is not in memory, an APPEND command is executed 
to load the subroutine and the last-subroutine-loaded switch is reset 
to the new value corresponding to the loaded subroutine. 
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РАСЕ МО: 7 


TITLE | ABSTRACT NUNEZ” 


ENHANCED PIE CHART 51/07- 9539/0 


rire ENHANCED PIE CHART TAPE & 


-—- же 2 


“END RESTART | 


SEGMENT DELETE g CHART 
- CHANGE | -SEGMENTE SEGMENT || BORDER 


FUNCTION 


Allows the user to save a chart description file on either 
tape or disk 


Displays in tabular form on the screen the description of 
the chart currently sotred in memory 


Plots the pie chart in one color on the 4662 Plotter 


Plots the pie chart on the 4662 Plotter, prompting the user 
to change pen colors at predetermined points 


Draws the pie chart on the 4050 screen 
Allows the user to change individual title lines as needed 
Allows the user to change segment labels and values as needed 


Allows segments to be added to the chart as needed by entering 
the required data 


Allows individual segments of the chart to be deleted 
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PAGE NO 8 
um ABSTRACT КО 


ENHANCED PIE CHART 51/07-9539/0 


UDK # FUNCTION 


10 Draws page borders 
19 | Terminate program execution 
20 Restarts the program at the beginning 
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PAGEND 9 
TITLE ABSTRACT” N“ 


ENHANCED PIE CHART 51/07-9535/C 


WELCOME TO THE PIECHART PROGRAM 


IN THE VERY UNLIKELY EVENT THAT YOU NEED ASSISTANCE 
CONTACT : MALLORY GREEN 
ISAAC ARTHUR 


HOUSING AND URBAN DEVELOPMENT 
РНОНЕ - 202-755-6800 


соор LUCE 


PRESS “RETURN” TO CONTINUE 
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PAGENO 1C 


TITLE ABSTRACT NO 


ENHANCED PIE CHART 51/07-9539/0 


ENTER ONE OF THE FOLLOWING DEPENDING ОМ REQUIRED FUNCTION 
H - START а HEH PIE CHART 
T - USE АН EXISTING CHART ON TAPE 
D - USE AN EXISTING CHART OH DISK 

ENTER SELECTED FUNCTION 


PURPOSE : THIS PROGRAM IS DESIGNED TO INTERACTIVELY 
CREATE ñ PIE-CHART 


FEATURES : 


1 ACCEPTS MAXIMUM OF 3 TITLE LINES 
MAXIMUM OF 64 CHARACTERS PER TITLE LINE 
2 ACCEPTS A MAXIMUM OF 10 SEGMENTS 
3 SEGMENT TEXT LENGTH MAXIMUM IS 25 CHARACTERS 
4 РКІНТ SEGMENT VALUE EITHER AS A PERCENTAGE 
OR КАМ INPUT VALUE AS SUPPLIED BY USER 
S SEGMENT SEPARATION OPTIONS ARE : 
Я. ALL SEGMENTS SEPARATED FROM EACH OTHER 
B. ONE SEGMENT SEPARATED FROM THE REST 
C. HO SEPARATION OF SEGMENTS 
6 POSITIONING OF PEN OR CURSOR FOR SEGMENT TEXT 
? РОЅІТІОННС OF PEN OR CURSOR FOR <ЕСМЕНТ/ТЕУТ POINTER 
IF TEXT IS PRINTED OUTSIDE SEGMENT 
8 EACH SEGMENT MAY BE PLOTTED IN A DIFFERENT COLOR 
WHEN PIE CHART IS DRAWN ON THE 4662 PLOTTER 


PRESS “RETURH” TO CONTINUE 


n? TUTTI ლაზ (IV AF РЕЖ" М "І PS AL А 
AON CAD. 


PAGENO 11 
ABSTRACT NC: 


ENHANCED PIE CHART 51/07-9539/0 


НЕК PIE CHART ROUTINE 

ENTER TITLE 1 

REGIONAL SHARE OF TOTAL FEDERAL AID ~ წ725 
ENTER TITLE 2 

FROM PRESIDEHT^S NATIONAL URBAN POLICY REPORT 
ENTER TITLE 3 

PAGE 187 


HOW MANY SEGMENTS IN THE PIE ? 4 
ENTER ЗЕСМЕНТ TEXT AND VALUES 
PRESS “RETURN” AFTER EACH ENTRY 


SEGMENT # VALUE TEXT 
1 26.5 NORTHEAST 
2 23.4 MIDHEST 
3 30,9 SOUTH 
4 19.2 WEST 


ROUTINE IS FINISHED . . . CONTINUE EXECUTION VIA USER KEYS 


UDK #2 - DISPLAY DATA 


TITLES : 
1 REGIOHAL SHARE OF TOTAL FEDERAL AID - FY?S 
2 FROM PRESIDENT S NATIONAL URBAN POLICY REPORT 
З PAGE 187 

SEGMENT TEXT AND VALUES : 


NORTHEAST 


ROUTINE IS FINISHED . . . CONTINUE EXECUTION VIA USER KEYS 
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РАСЕ МО 12 
ТИСЕ ABSTRACT ho. 


ENHANCED PIE CHART 51/07-9539/0 


UDK #1 - SAVE PLOT 


DO YOU WANT CHART SAVED OH DISK OR ТАРЕ? «РУТ» {р 


USER NAME AND FILE ARE LIMITED TO 10 CHARACTERS 
ENTER (User name-File nane) ? IKES-PIETEST 


PLOT DATA SAVED... 
ROUTINE IS FINISHED . . . CONTINUE EXECUTION UJA USER KEYS 


UDK #3 - ONE COLOR PLOT 


YOU HRUE SELECTED ONE-COLOR PLOT 


MOVE РЕМ TO LOWER LEFT CORNER OF YOUR PLOTTING PAPER 
PRESS ‘RETURN’ KEY WHEN READY 


MOVE PEN TO UPPER RIGHT CORNER OF YOUR PLOTTING PAPER 
PRESS “RETURN” KEY WHEN READY 
PLOTTING PEH WILL BE MOVED TO TRACE THE BOUNDARY OF 
YOUR PLOTTING AREA 
WATCH THE PEN NOW 
DO YOU WISH TO CHANGE PLOTTING AREA <Y-N> EN 


SPECIFY WIDTH AND HEIGHT OF LETTERS FOR THE TITLE 
ENTER WIDTH (STANDARD IS 1.75) 2 

ENTER HEIGHT (STANDARD IS 2.85) 3,1 

DO YOU WANT TITLES CENTERED (Y/N) 2 Y 
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PAGENO 12 
та |». ABSTRACT МО 


ENSANCED PIE CHART 51/07-9539/0 


Sue TEXT AND VALUES MAY BE : 
-- PRINTED WITHIN THE SEGMENT 
PRINTED OUTSIDE THE SEGMENT WITH ñ POINTEF 
З -- NOT PRINTED 
SELECT OPTION - 1, 2, OR 3 7 2 


ENTER SYMBOL (#,%,,..) FOR VALUES: % 

USE VALUES INPUT (U), OR COMPUTED PERCENTAGE (ნ)? U 
SPECIFY WIDTH AND HEIGHT OF LETTERS FOR PIE SEGMENT TEXT 
ENTER WIDTH (STANDARD IS 1.75) 

STANDARD WIDTH WILL BE USED 

ENTER HEIGHT (STANDARD IS 2.85) 

STANDARD HEIGHT WILL BE USED 


ALL SEGMENTS MAY BE SEPARATED OR A SINGLE SEGMENT MAY 


SEPARATED FROM THE REST 


SEGMEHT SEPARATION OPTIONS ARE :- 
8 -- NO SEPARATION 
VALID SEGMENT HUMBER 
ALL ЗЕСЕМНТ TO BE SEPARATED 


ENTER SEGMENT SEPARATION OPTION (8^n^&) მ 


POSITION PEK AT INTENDED CEHIER OF YOUR PIE 
PRESS “КЕТОРМ” TO CONTINUE 


POSITION PEN AT INTENDED JOR OF YOUR PIE 
PRESS “КЕТПЕН” TO CONTINUE 


PLOTTING PEH HILL BE MOVED TO TRACE THE BOUNDARY 
OF THE AREA WITHIN WHICH THE PIECHART WILL BE DRAWN 
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PAGEN^ 14 
TITLE = ABSTRACT N^ 


ENHANCED PTE CHART 5 1/0 720526 ГО 


MATCH THE PLOTTER PEN NOK 
DO YOU WISH TO CHANGE PIECHART AREA? СУАН 3Y 


POSITION PEN AT INTENDED СЕНТЕВ OF YOUR PIE 
PRESS “RETURH’ TO CONTINUE 


POSITION PEN AT INTENDED ТОР OF YOUR PIE 
PRESS “КЕТОКН” TO CONTINUE 


PLOTTING PEH WILL BE MOVED TO TRACE THE BOUNDARY 

OF THE AREA WITHIN WHICH THE PIECHART WILL BE DRAWN 
WATCH THE PLOTTER PEN NOW 
DO YOU WISH TO CHANGE PIECHART AREA? (Y/N? EN 
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РАСЕ МО. 15 
ТЕ ABSTRACT NO 


ENHANCED PIE CHART 51/07-9539/0 


SEGMENT TEXT AND VALUES WILL NOW BE PRINTED 

HAVING COME THIS FAR I AM SURE YOU DON’T WANT 

TO MESS UP YOUR CHART SO PLEASE FOLLGW INSTRUCTIONS 
OH THE SCREEN CLOSELY 

SEGMENT LABELS WILL BE PRINTED OUTSIDE THE SEGMENTS 


SEGMEHTS ARE NUMBERED FROM 1 TO 4 STARTING FROM 
THE 12 O'CLOCK POSITION AND COUNTING CLOCKWISE 


PEH POSITION INDICATES MID-POINT OF ARC FOR 
SEGMEHT 1. USE IT AS ñ GUIDE TO POSITION 
PEN FOR SEGNENT LABEL 15 CHARACTERS LONG 
PRESS “КЕТИКН” WHEN READY 
POSITION PEN FOR LABEL===>SEGMENT POINTER 
PRESS ‘RETURN’ WHEH READY 


РЕН POSITION INDICATES MID-POINT OF ARC FÜR 
SEGMENT 2. USE IT AS A GUIDE TO POSITION 
PEH FOR SEGMENT LABEL 13 CHARACTERS LONG 
PRESS ~RETURK’ WHEN READY 
POSITION PEN FOR LABEL===>SEGMENT POINTER 
PRESS “КЕТОКН” WHEN READY 


PEH POSITION INDICATES MID-POIHT OF ARC FOR 
SEGMENT 3. USE IT AS A GUIDE TO POSITION 
PEN FOR SEGMENT LABEL 11 CHARACTERS LONG 
PRESS ‘RETURN’ WHEN READY 
PEN POSITION INDICATES WHERE SEGMENT LABEL WILL END 
МНЕН PRINTED ОН 1 LINE. 
ENTER : “Р” TO PRINT 
`M” TO PRINT ON MULTIPLE LINES 
“8” TO REPOSITION РЕН MANUALLY Р 
POSITION PEN FOR LABEL===>SEGNENT POINTER 
PRESS *RETURN” WHEN READY 
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PAGE МО: 16 
TITLE ABSTRACT NO: 


ENHANCED PIE CHART 51/07- 9539/0 


PEN POSITION INDICATES MID-POINT OF ARC FOF. 
SEGHENT 4. USE IT AS A GUIDE TO POSITION 
PEH FOR SEGMENT LABEL 10 CHARACTERS LONG 
PRESS “RETURN” WHEN READY 
PEN POSITION INDICATES WHERE SEGMENT LABEL WILL ENG 
WHEN PRINTED ОН 1 LINE. 
ENTER : "Р" TO PRINT 
УМ" ТО PRINT OH MULTIPLE LINES 
`К^ ТО REPOSITION РЕН MANUALLY R 
REPOSITIOH PEN AND PRESS "RETURN 
PEN POSITION INDICATES WHERE SEGMENT LABEL WILL END ` 
WHEN PRINTED OH 1 LIKE. 
ENTER : "Р" TO PRINT 
"М" TO PRINT OH MULTIPLE LINES 
`R” TO REPOSITION РЕН MANUALLY P 
POSITION PEN FOR LABEL===>SEGMENT POINTER 
PRESS “КЕТОКН” WHEN READY 


ROUTINE IS FINISHED . . . CONTINUE EXECUTION VIA USER KEYS 
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PAGE NA 17 
ABSTRACT NO 


TITLE 


ENHANCED PIE CHART 4 51/07-9539/0 
3 


REGIONAL SHARE OF TOTAL FEDERAL AID ~ FY7S 
ROM PRESIDENT’S NATIONAL URBAN POLICY REPORT 
PAGE 187 


WEST 19.24 NORTHEAST 26.54 


SOUTH 38.94 MIDWEST 23.44 


000-6405-02 TEKTRONIX 4051 PROGRAM 


ENRANCED PIE CHART 


UDK #7 - SEGMENT CHANGE 


SEGMENT # 


> (Іг 


EHTER HUMBER OF au TO 
WHICH SEGHENT Ф ; 

ENTER NEM TEXT ; 

EHTER HER URLUE ; 30.5 
NEXT SEGMENT TO BE CHANGED 
ENTER MEW TEXT ; 26.4 
ENTER NEW VALUE : 26,4 
NEXT SEGMENT TO BE CHANGED 
ENTER NEW TEXT ; MIDWEST 
ENTER NEW URLUE ; 

NEXT 5ЕСМЕНТ TO BE CHANGED 
ENTER НЕН TEXT : 

ENTER НЕМ VALUE : 28,9 
НЕХТ SEGMEHT TO BE CHANGED 
ENTER HEH TEXT ; 22.2 
ENTER НЕН VALUE : 22.2 
NEXT SEGMENT TO BE CHANGED 
ENTER NEW TEXT : WEST 
ENTER HEH VALUE : 

NEXT SEGMENT TO BE CHANGED 


PAGENO 18 
ABSTRACT МО 


51/07- 9535/0 


UñLUE TEXT 


26.5 NORTHEAST 
23,4 MIDHEST 
30.9 SOUTH 
19,2 WEST 


BE CHANGED OR 39" TO EXIT 


э 


A 


AX 


? 


e 


ROUTINE IS FINISHED . . . CONTINUE EXECUTION VIA USER KEYS 
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TEKTRONIX PROGRAM 


PAGENO 13 
ТЕ ABSTRACT КСО 


ENHANCED PIE CHART 51/07-9539/0 


UDK £5 - SCREEN PLOT 


ame TEXT AND VALUES MAY BE: 
-- PRINTED WITHIN THE SEGMENT 
> -- OUTSIDE THE SEGMENT 
3 -- NOT PRINTED 
SELECT OPTION -- 1, 2, OR 3 ? 2 


ENTER SYMBOL (%,5,...) FOR VALUES: % 
USE INPUT VALUES (U3, OR COMPUTED PERCENTAGE (ნ)? P 
ENTER X OF WINDOW ALLOTTED TO CIRCLE (0-108755: 98 


ALL SEGMENTS MAY BE SEPARATED OR ñ SINGLE 
SEGEMHT MAY BE SEPARATED FROM THE REST 


SEGMEHT ЗЕРАКАТТОН OPTIONS ARE :- 
8 -- NO SEPARATION 

n -- VALID SEGMENT NUMBER 

A -- ALL SEGMENTS TO BE SEPARATED 


ENTER SEGMENT SEPARATION OPTION (0/п782 6 


M 
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PAGENO. 20 
AESTRACT КО 


ENHANCED PIE CHART 51/07-9539/0 


THE ATTENTION BELL MILL RING AFTER EACH SEGHEHT HAS BEEN 
DRANH. POSITION THE CURSOR, USING THE JOYSTICK, FOR 
THE SEGMENT TEXT AND VALUE TO BE PRINTED, 
PRESS THE “RETURN” KEY AFTER POSITIONING THE CURSOR 
IF SEGMENT TEXT IS PRINTED OUTSIDE THE SEGMENT 
COPTION 25, THE ATTENTION BELL WILL RING FOR 
CURSOR TO BE POSITIONED FOR ЗЕСМЕНТУТЕХТ POINTER 
PRESS “RETURN” KEY AFTER POSITIONING CURSOR 
THE TABLE BELOW SHOWS THE LENGTH OF EACH SEGMENT TEXT. 
USE IT AS A GUIDE IN POSITIONING THE CURSOR 


SEGMENT LABELS WILL БЕ Дара аш OUTSIDE THE SEGMENTS 

SEGMENT & 1 TEXT LENGT 18 

SEGMENT 4 2 ТЕХТ LENGTH 
#3 
4 4 


8 
€ 
TEXT LENGTH = 5 


SEGMENT 
SEGNENT 


YOU MAY MAKE A HARD COPY OF ABOVE INSTRUCTIONS FOR 
REFFERENCE. PLEASE NOTE NO FURTHER INSTRUCTIONS WILL 
APPEAR ON THE SCREEN ONCE THE PLOTTING HñS BEGUN 


PRESS “БЕТПЕН” WHEN READY TO CONTINUE 
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PAGENO. 21 
ШЕКЕ ABSTRACT МІ 


ENHANCED PIE CHART 51/07-9539/C 


DATA STORAGE 


MAIN MODULE - ФРІЕСНЕ/МАІІ; 


Variable Used to Store Type 


Segment labels String 
Segment values Array (10) 
Title lines entered by user String 
Title line 1 String 
Title line 2 String 
Title line 3 String 
Program index Simple 
Program index Simple 
Source of chart data (D/T/N) String 
Chart data disk file name String 
Number of segments Simple 
Input of segment values String 
Scratch used as dummy response String 
Segment values as percentages of total pie Array (11) 
Scratch Simple 
Scratch Simple 
Sum of segment values Simple 
Number assigned to required subroutine Simple 
Number of subroutine last read from disk Simple 
Segment labels input by user String 
Indicator for multi-color plot String 
Segment values String 
Tape file number for chart data Simple 
Scratch Simple 
Disk file status message String 


. 000-6405-02 TEKTRONIX 4051 PROGRAM 


ENHANCED PIE CHART 


PAGEND 22 


SEGMENT ADDITION - @PIECHR/ADDSEG 


Variable Used to Store 

Al Number of segments to be added 
A2 New total of segments in the pie 
AS All segment labels 

D Segment values 

I Program index 

11 Program index 

N Original number of segments 

NS Segment value 

Pl Scratch 

Š Sum of all segment values 

TŠ Scratch 

Y$ All Segment values 


000-6405-02 


Type 
Simple 
Simple 
String 
Array (10) 
Simple 
Simple 
Simple 
String 
Simple 
Simple 
String 
String 


TEKTRONIX 4051 PROGRAM 


PAGE МО: 23 


ABSTRACT NT 
ENHANCED PIE CHART 51/07-9539/0 
SEGMENT DELETION - @PIECHR/DELSEG 
Variable Used to Store Type 
Al Number of segments to be deleted Simple 
AS All segment labels String 
D Segment values Array (10) 
Di Total number of segments deleted Simple 
I Index Simple 
I1 Index Simple 
I2 Index Simple 
N Number of segments Simple 
Pl Scratch Simple 
P2 Scratch Simple 
РЗ Scratch Simple 
РА Scratch Simple 
Qs Scratch String 
S Sum of all segment values Simple 
Y$ All segment values String 
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PAGENO 24 
TIT ABSTRACT № 


ENHANCED PIE CHART 51/07-9539/0 


SCREEN PLOT - @PIECHR/SCREENPL 
Variable Used to Store Type 


AS All segment labels String 
Bl Beginning angle of a segment's arc Simple 
Ending angle of a segment's arc Simple 
Angle of the midpoint of a segment's arc Simple 
A segment's label String 


Segment values Array (10) 


Scratch String 
Beginning angle of a segment's arc Simple 
Segment separation value Simple 
Title line 1 String 
Title line 2 String 
Character height scale factor Simple 
Title line 3 String 
Program index | Simple 
Program index Simple 
Scratch Simple 
Scratch used for user response Simple 
Ending angle for a segment's arc Simple 
Scratch Simple 
Number of segments Simple 
Segment to be separated Simple 
Segment values String 
Scratch used for dummy response String 
Segment values as percentages of total pie Array (11) 
Scratch Simple 
Scratch . Simple 
Scratch Simple 
Scratch Simple 
Segment label printing option Simple 
Scratch String 
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PAGE NO. 25 
AESTRACT NO 


ENHANCED PIE CHART 51/07- 9539/0 


Variable Used to Stove Type 


Scratch Simple 
Sum of all segment values Simple 
Symbol to be printed with segment values String 


Segment value (raw or computed %) to be String 
printed option 


User units for plotting window Simple 
Character width scale factor біпріе 
Percentage of window alloted to pie chart Simple 
Scratch Simple 
Adjustment of window on X axis for segment Simple 
separation 

X axis coordinate of mid-point of segment Simple 
arc 


X axis coordinate of beginning os segment Simple 
pointer 


Beginning of title print position Simple 


Adjustment of window on Y axis for Simple 
segment separation 


Y axis coordinate of mid-point of Simple 
segment arc 


Y axis coordinate of beginning of Simple 
segment pointer 


А11 segment values String 
Device number on GPIB 
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РАСЕ Мо 26 
Е: TRAT 


ENHANCED PIE CHART 51/07-9539/0 


4662 PLOT - @PIECHR/PLOT4662 


Variable Used to Store Type 


Al X coordinate of end of first segment's arc Simple 
A2 Y coordinate of end of first segment's arc Simple 
AS Segment labels String 
Bl Beginning angle of segment's arc Simple 
B2 Ending angle of segment's arc Simple 
B3 Angle of midpoint of segment's arc Simple 


X axis coordinate of lower left corner Simple 
of plotting area 


Y axis coordinate of lower left corner Simple 
of plotting area 


A segment's label String 
Scratch Simple 
Scratch Simple 
Underlining characters String 
Segment values Array (10) 
Beginning angle of a segment's arc Simple 
Percentage of segment spearation Simple 
Adjusted X axis beginning Simple 
Adjusted X axis ending Simple 
Title line 1 | String 
Title line 2 String 
Character height scaling factor Simple 


X axis coordinate of midpoint of segment Simple 
arc 


Adjusted character height scaling factor Simple 
Title line 3 String 
Scratch used for Y/N responses String 
Index Simple 
Index Simple 
Index Simple 
Ending angle of segment arc Simple 
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PAGE NO: 27 
НЕЕ ABSTRACT NZ 


ENHANCED PIE CHART 51/07-9539/0 


Variable Used tc Store Type 
L Scratch Simple 
L1 Scratch Simple 
LS Segment label printing option String 
Mi Number of decimal places to which segment Simple 
value should be computed and printed 
MS User input for number of decimal places String 
to which segment value should be printed 
N Number of segments Simple 
1 Segment to be separated Simple 
NO Rounding up of segment values Simple 
NS Segment value String 
0S Scratch String 
P Computed segment percentages of total pie Array (11) 
P1 Scratch Simple 
P2 Scratch Simple 
P9 Segment label printing option Simple 
R Radius of pie Simple 
R1 Adjustment of X axis range of viewport Simple 
R$ Scratch String 
S Sum of segment values Simple 
S$ Symbol to be printed with segment value String 
TŠ Scratch String 
U$ Multi-color plot indicator String 
V1 Y axis coordinate of midpoint of segment Simple 
arc 
v$ Segment value to be printed option String 
W User units for window Simple 
М1 Character width scaling factor Simple 
W2 Percentage of plotting area for chart Simple 
(always 100) 
W3 Angle of shift for segment separation Simple 
м$ Character width scaling factor input Бу String 
user 
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PAGENO 28 
ABSTRACT NO 


bla ao 


ENHANCED PIE CHART 51/07-9539/0 


Variable Used to Store Type 

X X axis adjustment of window for segment Simple 
separation 

Хр X axis coordinate of center of pie Simple 

X1 X axis coordinate of lower left corner Simple 
of plotting paper 

X2 X axis coordinate of upper right corner Simple 
of plotting paper 

x3 Beginning print position for centered Simple 
titles 

X4 GDU of plotting area on the X axis Simple 

ХЕ X axis coordinate оф top of pie Simple 

Х7 Window adjustment factor Тог segment Simple 
separation 

x8 Scratch Simple 

X9 Beginning of segment label print position Simple 

Х5 Scratch String 

Y Y axis adjustment of window for segment Simple 
separation 

үр Y axis coordinate of center of pie Simple 

ҮІ Y axis coordinate of lower left corner Simple 
of plotting area 

Y2 Y axis coordinate of upper right corner Simple 
of plotting area 

Y6 Y axis coordinate of top of pie Simple 

Y7 Window adjustment factor for segment Simple 
separation 

Y9 Beginning of segment label print position Simple 

Y$ All segment values String 

z Device number of GPIB Simple 

71 Scratch Simple 

Z2 Scratch Simple 

25 Scratch String 
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PAGE NC 29 
АЕЗТААСТ МО 


Enhanced Pie Chart Б1/07-9532/2 


SAVE PLOT - @PIECHR/SAVEPLOT 


Variable Used to Store Type 
AS All segment labels string 
D с А11 segment values Array (10) 
FŠ Title line 1 String 
65 Title line 2 String 
HŠ Title line 3 String 
J$ User's disk file name for chart data String 
MS Storage media for file String 
N Number of segments Simple 
5 Sum of all segment values Simple 
YŠ All segment values String 
25 Scratch String 
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РАСЕ МО 30 


AEITRELOT М2 


ENHANCED PIE CHART 51/07-9539/0 


CHART PAGE BORDER - @PIECHR/BORDcK 


Variable Used to Store 


I$ Scratch 
05 | Scratch 


X axis coordinate of lower left corner 
of plotting area 


X axis coordinate of upper right corner 
of plotting area 


User display units of window on X axis 


Y axis coordinate of lower left corner 
of plotting area 


Y axis coordinate of upper right corner 
of plotting area 


User display units of window on Y axis 
Device number on GPIB 
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PAGENO 3: 
ABSTRACT NG 


ENHANCED PIE CHAST 51/07-9539/9 


1 REMARK *PIECELET PROGRAM MAIN MODULE @PIECHR/MAIN 51/37-9535/9 


PE 


г GOSUb 197 
3 GO TO 99 


4 REMARK *** SAVE PLOT DATA 
5 51=1 

6 GOSUB 2539 

7 GO TO 9° 


8 REM * DISPLAY PLOT DAT» 


9 GOSUB 2362 
10 GO TO 92 


12 REM *** ONE COLOR PLOT 


13 U$="U" 
14 GO TO 93 


16 REM *** MULTI-COLOR PLCT 


17 U$-" " 
18 GO TO 93 


20 REM *** PLOT TO SCREEN 
21 5125 

22 GOSUB 2530 

23 GO TO 90 


24 REMARK *** CHART TITLE CHANGES 


25 GOSUB 1500 
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PAGE МО: 32 
AES TRACT NO 


ENHANCED PIE СНАРТ 51/07-9539/0 


бо To € 
REMARK SEGMENT TEXT AND VALUE 


GOSUB 
o GO TO Q 


ADD А NEW SEGMENT 


‚ REMARK *** DELETE A SEGMENT 
5123 
00508 2530 
60 ТО 90 
REMARK ### DRAW PAGE BORDER 
51-4 
GOSUB 2532 
GO TO 90 
REMARK *** END OF RUN 


PRINT "LJJJJIIHHHHEND OF RUNGGG" 
END 


REMARK *** RESTART 
GOSUB 220 


REMARK 
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PAGENO 33 
TOO ETNZ 
ЭБ ABSTRACT NZ 


ENHANCED PIE CHART 51/07-9539/0 


91 PRINT "JROUTINE IS FINISHED . . . CONTINUE ЕХо ССТІОК VIA USER KEYSC" 
92 RETURN 


93 REMARK *** SET UP TO BRING IN PLOT 4662 MODULE 
94 S1z6 

95 GOSUB 2530 

5 Go TO 99 


199 REMARK %%% INTRODUCTION 


11C SET KEY 

129 PRINT "LJ WELCOME TO THE PIECHART PROGRAM" 

130 PRINT "JJ IN THE VERY UNLIKELY EVENT THAT YOU NEED ASSISTANCE" 
140 PRINT " CONTACT : MALLORY GREEN" 

150 PRINT " OR " 

160 PRINT " ISAAC ARTHUR" 

170 PRINT " HOUSING AND URBAN DEVELOPMENT" 

180 PRINT " PHONE - 202-755-6800" 

190 PRINT "JJ GOOD LUCK" 


200 PRINT "JJIPRESS  'RETURN' TO CONTINUE "; 

210 INPUT O$ 

220 DELETE A$,D,P,Z$,N$, Y$ 

230 DIM A$(10*25) ,D(10) ,P(11) ,Z$(25) 

240 SET DEGREES 

250 5120 

260 52-0 

270 PRINT "LENTER ONE ОҒ THE FOLLOWING DEPENDING ON REQUIRED FUNCTION' 
280 PRINT " N - START À NEW PIE CHART" 

290 PRINT " T - USE AN EXISTING CHART ON TAPE" 

300 PRINT " D - USE AN EXISTING CHART ON DISK" 

310 PRINT "ENTER SELECTED FUNCTION "; 

320 INPUT I$ 

330 GO ТО 1*(I$="N")+2*(I$="T")+3*(I$="D") OF 360,1290,1390 
340 PRINT "GJINVALID FUNCTION SELECTED -- RE-ENTER "; 

350 GO TO 320 


000-6405-02 TEKTRONIX 4051 PROGRAM 


TITE AE TRACT NO 


ENHANCED PIE CHART 51/07-9539/0 


· PRINT "L PURPOS: : THIS PROGRAM IS DESIGNED TO INTERACTIVELY" 
PRINT " CREATE A PIE-CHART " 
PRINT "JFEATURES DIU 
PRINT 1 ACCEPTS MAXIMUM OF 3 TITLE LINES" 
9 PRINT MAXIMUM OF 64 CHARACTERS PER TITLE LINE" 

PRINT c ACCEPTS A MAXIMUM OF 10 SEGMENTS " 
PRINT SEGMENT TEXT LENGTH MAXIMUM IS 25 CHARACTERS" 
PRINT 4 PRINT SEGMENT VALUE LITHEF AS A PERCENTAGE" 
PRINT OR RAw INPUT VALUE AS SUPPLIED BY USER" 
PRINT SEGMENT SEPARATION OPTIONS ARE : 
PRINT A. ALL SEGMENTS SEPARATED FROM EACH OTHER" 
PRINT B. ONE SEGMENT SEPARATED FROM THE REST " 
PRINT C. NO SEPARATION OF SEGMENTS" 
PRINT POSITIONING OF PEN OR CURSOR FOR SEGMENT TEXT" 
PRINT POSITIONNG OF PEN OR CURSOR FOR SEGMENT/ TEXT POINTER" 
PRINT IF TEXT IS PRINTED OUTSIDE SEGMENT" 
PRINT EACH SEGMENT MAY BE PLOTTED IN A DIFFERENT COLOR" 
PRINT WHEN PIE CHART IS DRAWN ON THE 4662 PLOTTER" 
PRINT "JJIPRESS 'RETURN' TO CONTINUE"; 
INPUT O$ 
PRINT "ІМЕМ PIE CHART ROUTINE" 
FOR I=1 TO 3 

PRINT "ENTER TITLE ";I 

INPUT D$ 

IF LEN(D$)<65 THEN 630 

PRINT "GTITLE EXCEEDS 64 CHARACTERS" 

GO TO 590 

IF I>2 THEN 690 

IF I=2 THEN 670 

F$=D$ 

GO TO 700 

G$=D$ 

GO TO 700 

H$=D$ 
NEXT I 
28=0 
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PAGENO 35 
т. ABSTRACT ა 


ENHANCED PIE СНАРТ 51/07-9539/С 


წა”. ს 


730: ys em 

740 PRINT "JHOW MANY SEGMENTS IN THE PIE ? "; 

750 INPUT N 

760 IF N<=10 THEN 890 

770 PRINT "GMORL THAN 10 SEGMENTS WILL PRODUCE A CROWDED CHART" 
780 PRINT "GMAXIMUM OF TEN SEGMENTS WILL BE DRAWN " 
790 N=10 

800 IF Кро THEN 830 

810 PRINT "GYOU CANNOT DRAW A PIE CHART WITH 0 SEGMENTS " 
829 GO T 740 

830 Ags" 

840 F$=F$&" " 

850 G$=G$&" " 

860 H$=H$&" " 

870 5-2 

889 FOR 1-1 TO 10 

890 D(1)=9 

900 NEXT I 

910 FOR I=1 TO 11 

920 Р(1)=9 

930 МЕХТ 1 

940 PRINT "ENTER SEGMENT TEXT AND VALUES" 

950 PRINT "PRESS 'RETURN' AFTER EACH ENTRY" 

960 PRINT "JIHHBHHSEGMENT fIHHVALUE IHHHHTEXT" 

970 FOR I=1 TO N 


980 PRINT WTM: TM Ym, 

990 INPUT N$ 

1000 P1=POS(N$,",",1) 

1010 IF P1=0 THEN 1040 

1020 N$=REP("",P1,1) 

1030 GO TO 1000 

1040 PRINT "KIIIHHHHHHH"; 

1050 INPUT T$ 

1060 IF LEN(T$)<26 THEN 1100 

1070 PRINT "GTEXT LONGER THAN 25 CHARACTERS - RE-ENTER" 
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Tra sm 


ENHANCED PIE CHAPT 51/07-9539/0 


1022 
1092 
1102 


1110 


112€ 
1132 
1149 
1152 
1160 
1170 
118: 
1195 
1299 
1210 
1229 
1230 
1249 
1250 
1260 
1270 
1289 


1290 


1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 


1390 


000-6405-02 


PRINT "IIIHHHHHE"; 

GO TO 1959 

A$-A$&T$ 

IF LEN(T$)225 THEN 1150 

FOR 1121 TO 25-LEN(T$) 
A$-A$&" " 

NEXT 11 

D(I)=VAL(NE) 

IF D(I)>0 THEN 1220 

PRINT "G A SEGMENT MAY NOT HAVE A VALUE OF O OR LESS"; 

PRINT " RE-ENTER" 

PRONE, ДІМ 

INPUT NŠ 

GO TO 1159 

SzS«D(I) 

N$=STR(D(1)) 

N$=SEG(N$,Z,LEN(N$)-1) 

Y$=Y$&N$ 

Y$-Y$&" " 

NEXT I 

GO TO 1499 


REMARK %%% READ PLOT FORM ТАРЕ 


PRINT "GINSERT TAPE & ENTER FILE NUMBER WHERE CHART IS STORED : 


INPUT 28 

FIND Z8 

ON EOF (0) THEN 1380 

READ 633:A$,F$,G$,H$,D, N, S, Y$ 
DIM P(11),2$(25) 

GOSUB 2360 

Јф="" 

GO ТО 1490 


REMARK ### READ PLOT FROM DISK 


TEKTRONIX 4051 PROGRAM 


PAGENO 37 
Т.Е ABSTRACT NO 


ENHANCED PEI CHART 51/07-9539/0 


1400 PRINT "ОЈЕКТЕК (User name/File rame) 
1410 INPUT Js 

1420 J$="@PIECHR/"&J$ 

1421 CALL "FILE" ,0,J$,2$ 

1422 IF Z$O"" THEN 1430 

1423 J$:SEG(J$,9,LEN(J$)-8) 

1424 PRINT "JGGGC NO SUCH ЕПЕ.................. и; J$; "GGGGG" 
1425 GO ТО 1422 

1430 OPEN J$; 1," Е", № 

1440 READ #1:A$,F$,G$,H$,D,N,S, Ү$ 

1459 DIM P(11),2$(25) 

1460 CLOSE 1 

1470 GOSUB 2360 

1482 28-0 

1490 RETURN 


1500 REMARK *** TITLE LINES CHANGES 


1510 PAGE 

1520 PRINT "TITLE 1 :" 

1530 PRINT " "F$ 

1540 PRINT "TITLE 2 :" 

1550 PRINT " "G$ 

1560 PRINT "TITLE 3 :" 

1570 PRINT " "H$ 

1580 PRINT "JENTER NUMBER OF TITLE TO BE CHANGED OR 70" TO EXIT" 
1590 PRINT "ENTER NUMBER "; 

1600 INPUT Z9 

1610 IF Z9<=3 THEN 1640 

1620 PRINT "GINVALID ENTRY -- RE-ENTER "; 
1630 GO TO 1600 

1640 IF 29420 THEN 1840 

1650 PRINT "REPLACE TITLE ";29;" WITH :" 
1660 INPUT D$ 

1670 IF LEN(D$)«65 THEN 1700 

1680 PRINT "GTITLE EXCEEDS 64 CHARACTERS " 
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РАСЕМО 2: 
Tires АРОН ra. 


ENHANCED PIE CHART 51/07-0523 77 


62 TC 1659 

IF 2922 THEN 1855 
IF Z9=2 THEN 1760 
F$=D$ 

IF D$<>"" THEN 1590 
F$z" " 

GO TO 1592 

G$=D° 

IF D$<>"" THEN 1592 
G$=" " 

GO ТО 1592 

H$=D$ 

ТЕ D$<>"" THEN 1599 
Нф=" " 

GO TO 1590 

RETURN 


REMARK %%% CHANGE SEGMENT TEXT AND VALUES 


PRINT "LJIHHHHHSEGMENT fIVALUEIHHHHTEXTJ" 
FOR I=1 TO N 


T$zSEG(A$,(I-1)*2541,25) 
PRINT "I";I;"I ";D(I);"IHHHHHHHH"; T$ 
NEXT I 
PRINT "JENTER NUMBER OF SEGMENT TO BE CHANGED OR "Ut TO EXIT + 
PRINT "WHICH SEGMENT # : "; 
INPUT I 
IF I<=N THEN 1970 
PRINT "GATTEMPTING TO CHANGE A NON-EXISTENT SEGMENT" 
GO TO 1910 
IF 1<=0 THEN 2310 
PRINT "ENTER NEW TEXT : 
INPUT T$ 
IF LEN(T$)<26 THEN 2030 
PRINT "TEXT EXCEEDS MAX OF 25 CHARACTERS -- RE-ENTER" 
GO TO 1990 
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IF LEN(T$)=25 THEN 29550 

IF T$="" THEN 298: 

FOR І1-1 TO 25-ШЕК(Т%) 
T$-Tg&" " 

NEXT I1 

А$=ВЕР(Т$,(1-1)%25+1,25) 

PRINT "ENTER NEW VALUE : 1; 

INPUT № 

IF N$z"" THEN 2295 

P1:POS(N$,",",1) 

IF Р1-2 THEN 2160 


| NSgshEPUUS FTT) 
o GO TO 212: 


000-6405-02 


D(I)sVAL(N$) 
IF 0(1)20 THEN 2209 
PRINT "GA SEGMENT VALUE CANNOT BE ""0"" 
GO TO 2992 
Р2=1 
ЈЕ 1-1 THEN 2260 
FOR 11=1 ТО І-1 
P1=POS(Y$," ",P2) 
P2=P1+1 
NEXT 11 
P1=POS(Y$," ",Рг) 
N$-N$&" " 
Y$=REP(N$,P2,P1-P2+1) 
PRINT "NEXT SEGMENT TO BE CHANGED ? "; 
GO TO 1932 
520 
БОК 121 TO N 
S=S+D(I) 
NEXT I 
RETURN 


REMARK ### DISPLAY PLOT DATA 


51/07-9539/0 


TEKTRONIX 4051 PROGRAM 


РАСЕ МО 40 
ABSTRACT N^ 


ENHANCED PIE CHART 51/07-9539/0 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT "JSEGMENT TEXT AND VALUES :J " 

Ре-1 

FOR 1=1 TG N 
P1zPOS(Y$," " Poa) 
N$#=SrG(Y$,P a, Р1-Ра) 
Pe=P1+1 
T$=SEG( AS, (1-1) *254+1,25) 
PRINT "Ü" ";I;" ';T$;" meng 

NEXT I 

PRINT 

PRINT 

RETURN 


REMARK ### OVERLAY CONTROL MODUL: 


IF S2=S1 THEN 2660 

52-51 

DELETE 2730,9999 

29-МЕМОКҮ 

GO TO 52 ОҒ 2590,2610,2630,2650,2670,2690 
APPEND "@PIECHR/SAVEPLOT"; 2720 
GO TO 2700 

APPEND "@PIECHR/ADDSEG"; 2720 
GO TO 2700 

APPEND "@PIECHR/DELSEG"; 2720 
GO TO 2700 

APPEND "@PIECHR/ BORDER"; 2720 
GO TO 2700 

APPEND "@PIECHR/SCREENPL"; 2720 
GO TO 2700 

APPEND "@PIECHR/PLOT4662"; 2720 
GOSUB 2720 
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5 
TITLE АБЭТВАЗТ N2. 


ENHANCED PIE CHART §1707-=9539/C 


2710 RETURN 


2720 REMARK *** TARGET FOR APPEND 
2730 REMARK TARGET FOR INITIAL DELETE 
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PAGENO 42 


Teel ABSTRACT NO 


ENHANCED PIE CHAST Б1 /G2- 9539/0 


100 REMARK *** ADD A NEW SEGMENT "@PIECHR/ADDSEG" 51/07-9555/- 


110 PAGE 

120 PRINT " ENTER NUMBER OF SEGMENTS TO BE ADDED "; 
130 INPUT A1 

140 IF А1<=0 THEN 482 

150 Acsh14N 

160 IF Ac<=10 THEN 190 

170 PRINT "GYOU MAY ADD MAXIMUM OF ";10-N;" SEGMENTS" 
180 GO TO 120 

190 PRINT "JIHHHHHSEOMENT fIHHVALUE IHBHHTEXT" 

200 FOR 1=1 TO A1 


210 PRINT MIU ISIN; 

220 INPUT N$ 

230 P1zPOS(N$,"," ,1) 

240 IF P1=9 THEN 270 

250 М$=ВЕР("",Р1,1) 

260 СО ТО 230 

270 IF VAL(N$)>0 THEN 310 
280 PRINT "GA SEGMENT MAY NOT HAVE A VALUE OF O OR LESS -- RE-ENTER" 
299 PRINT "II"; 

300 GO TO 220 

319 PRINT "KIIIHHHHHH"; 
320 INPUT T$ 

335 IF LEN(T$)<26 THEN 370 
349 PRINT "GTEXT LONGER THAN 25 CHARACTERS -- RE-ENTER" 
350 PRINT "IIIHHHHHH"; 

360 GO TO 320 

370 А$=АЗ& Т$ 

380 IF LEN(T$)=25 THEN 420 
390 FOR I1=1 TO 25-LEN(T$) 
400 A$-A$&" " 

410 NEXT I1 

420 D(N+I )=VAL(N$) 


430 S=S+D(N+I) 
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PAGENO 4: 
ABSTRACT КО 


ЕМН ЕР PIE CHAST О. 9Е SOLE 


43: Y$sY$&: 
452 Y$=Y$&" " 
460 NEXT I 

АТО M=ჩ. 

480 RETURN 
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PAGE МО: 44 
ABSTRACT NO 


ENHANCED PIE CHART 51/07-9539/0 


100 REMARK *** DELETE A SEGMENT "@PIECHR/DELSEG" 51/07-9539/- 


110 D1=9 
120 PRINT "LENTER NUMBER OF SEGMENT TO BE DELETED" 
130 PRINT " OR 10 TO EXIT ROUTINEJ" 


140 PRINT "ENTER NUMBER OF SEGMENT "; 

150 INPUT А1 

160 IF А1<=9 THEN 410 

170 IF А1<-М THEN 200 

180 PRINT "GATTEMPTING TO DELETE A NON-EXISTENT SEGMENT" 
192 GO TO 142 


222 Раз! 

210 FOR I1=1 TO 41 

229 Р1-Р05(Ү%," ",PZ) 
239 ЈЕ 11=А1 THEN 252 
249 PezP14«1 


250 NEXT I1 

260 IF A1<>1 THEN 265 

270 Ра! 

280 0%-5ЕС(Ү%,Р2,Р1-Р2) 

290 GO TO 1%(95- "Зу 2# (Оро "#ниии) OF 300,320 

300 PRINT "GSEGMENT ALREADY DELETED" 

310 GO TO 149 

320 IF Di+2<N THEN 389 

330 PRINT "GYOU NEED A MINIMUM OF 2 SEGMENTS FOR A MEANINGFUL PIECHART" 
340 PRINT "AND YOU NOW HAVE ONLY 2 SEGMENTS" ' 

350 PRINT "GGJNO MORE SEGMENTS WILL BE DELETED UNLESS YOU ADD MORE" 
360 PRINT "SEGMENTS FIRST" 

370 GO TO 420 

380 Y$=REPC(MHRRE" Po P1-P 2) 

390 D1=D1+1 

400 GO TO 140 

410 P2=1 

420 FOR I=1 TO N 

430 P1=POS(Y$," ",P2) 


000-6405-02 | ТЕКТВОМІХ 4051 PROGRAM 


PAGENT 4: 
Ties AED TRACT NI 


ENHANCED PIE CHAPT 


442 0%-5%6(Ү%,Рг,Р1-Р2) 


455 IF ОФ ОТЖ" THEN 452 
465 У$=ВЕР("" Pa, P1+1-P 2) 
470 A$=REP("W (I-1)#25+1,25) 
480 Pe=P 1+1 

490 NEXT I 

500 P2=1 

510 5-0 

529 FOR 121 TO N-D1 

530 P1=POS(Y$," ",Ра) 

549 Q$zSEG(Y$,P2,P1-Pe) 
550 D(1)=VAL(Q$) 

560 S=S+D(I) 

575 Р2-Р1-1 

580 NEXT I 

599 NzN-D1 


605 RETURN 
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PAGENO 46 
TITLE APSTRACTNC 


ENHANCED PIE CHART 51/07-9539/0 


100 REMARK *** PLOT TO SCREEN "GPIECER/SCREENFL" 51/97-95 35/0 


110 PRINT "LJSEGMENT TEXT AND VALUES MAY ВЕ:" 


120 PRINT" 1 -- PRINTED WITHIN THE SEGMENT" 
130 PRINT" 2 -- OUTSIDE THE SEGMENT" 

142 PRINT" 3 =- NOT PRINTED " 

150 PRINT "GSELECT OPTION -- 1, е, OR 3 ? "; 


160 INPUT P$ 

170 P9:VAL(P$) 

180 IF P9>0 AND P9<=3 THEN 219 

199 PRINT "GINVALID RESPONSE -- RE-ENTER "; 

200 GO TO 160 

210 IF Р953 THEN 329 

220 PRINT "JENTER SYMBOL ($,%,...) FOR VALUES: "; 

230 INPUT S$ 

240 IF LEN(S$)<=1 THEN 270 

250 PRINT "ONLY FIRST CHARACTER OF SYMBOL WILL BE PRINTED" 
260 S$=SEG(S$, 1, 1) 

270 PRINT "JUSE INPUT VALUES (V), OR COMPUTED PERCENTAGE (PO? "; 
280 INPUT V$ 

290 IF V$="V" OR V$="P" THEN 329 

300 PRINT "GINVALID RESPONSE -- RE-ENTER "; 

310 GO TO 280 

320 W1=1.75 

$30 8=2.85 

340 PRINT "JENTER % OF WINDOW ALLOTTED TC CIRCLE (0-100%): "; 
350 W2=100 

360 INPUT Z$ 

370 IF Z$="" THEN 390 

380 W2=VAL(Z$) 

390 PRINT "J ALL SEGMENTS MAY BE SEPARATED OR A SINGLE " 
400 PRINT "SEGEMNT MAY BE SEPARATED FROM THE REST " 

410 PRINT "JSEGMENT SEPARATION OPTIONS ARE :- " 

420 PRINT " 0 -- NO SEPARATION " 

430 PRINT " n -- VALID SEGMENT NUMBER" 


000-6405-02 TEKTRONIX 4051 PROGRAM 


РАСЕ КО 47 


ABSTRACT NZ 


ENHANCED PIE CHART 51/07-9535/0 


445 PRINT " А == ALL SEGMENTS TO BE SEPARATI " 

452 PRINT "JENTER SEGMENT SEPARATION OPTION (9/57#ჩ) "; 

469 INPUT Z¢ 

470 ІК Z$<>"" THEN 500 

480 PRINT "GINVALID RESPONSE " 

499 GO TO 450 

500 Е1:20 

515 IF Z$Q "A" THEN 550 

520 PRINT "GTO MINIMIZE DISTORTION CAUSED BY SEGMENTS EXPLOSIONS" 
530 PRINT "54 MAXIMUM SEPARATION IS RECOMMENDED" 

540 GO TO 622 

550 N1=VAL(Z2) 

560 IF К1-0 THEN 710 

575 IF N1«sN THEN 610 

580 PRINT "GATTEMPTING TO SEPARATE A NON-EXISTENT SEGMENT" 

595 GO TO 459 

609 N1=99 

610 PRINT "JENTER % SEPARATION -(RECOMMENDED МАХ IS 20) "; 

620 INPUT E1 

630 IF E1>0 THEN 660 

640 PRINT " '0' IS NOT A VALID VALUE -- RE-ENTER "; 

650 GO TO 620 

669 IF Е1<=20 THEN 710 

670 PRINT "GSEPARATION OF MORE THAN 20% MAY CAUSE LOSS OF" 

680 PRINT " CORRELATION BETWEEN SEGMENTS" 

690 FOR 1121 TO 500 

700 NEXT 11 

710 IF P9=3 THEN 1010 

720 PRINT "LGGGG" 

730 PRINT "THE ATTENTION BELL WILL RING AFTER EACH SEGMENT HAS BEEN" 
740 PRINT "DRAWN. POSITION THE CURSOR, USING THE JOYSTICK, FOR" 
750 PRINT "THE SEGMENT TEXT AND VALUE TO BE PRINTED." 

760 PRINT "PRESS THE 'RETURN' KEY AFTER POSITIONING THE CURSOR" 
770 PRINT "IF SEGMENT TEXT IS PRINTED OUTSIDE THE SEGMENT" 

780 PRINT " (OPTION 2), THE ATTENTION BELL WILL RING FOR " 

790 PRINT "CURSOR TO BE POSITIONED FOR SEGMENT/ TEXT POINTER" 
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PAGENO 48 
ABSTRACT NT 


ENHANCED PIE CHAPT 51/07-9539/0 


ტი 


ee 


810 
820 
830 
840 
859 
865 
879 
855 
899 


^n 
c 


910 
гб 
935 
940 
950 
960 
970 
989 
999 
1000 
1010 
1029 
1039 
1049 
1050 
1069 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


000-6405-02 


PEINT "PRESS 'RETURN' KEY AFTER POSITIONING CURSOR" 

PRINT "THE TABLE BELOW SHOWS THE LENGTH OF EACH SEGMENT Tri." 
PRINT "USE IT AS A GUIDE IN POSITIONING THE CURSORJ" 

IF P9>1 THEN 869 

PRINT "JSEGMENT LABELS WILL BE PRINTED WITHIN THE SEGMENTS" 


GO TO 872 
PRINT "JSEGMENT LABELS WILL BE PRINTED OUTSIDE THE SEGMENTS" 
2=32 
Fez] 
FOR 121 TO N 

B$=SEG(A$, (1-1)82541, 25) 

L=POS(Bg," ",1) 

IF 120 THEN 940 

L=26 

PRINT "SEGMENT # ";I;" TEXT LENGTH ="; 
NEXT I 


PRINT "GJJYOU MAY MAKE A HARD COPY OF ABOVE INSTRUCTIONS FOR " 

PRINT "REFFERENCE. PLEASE NOTE NO FURTHER INSTRUCTIONS WILL" 

PRINT "APPEAR ON THE SCREEN ONCE THE PLOTTING HAS BEGUNGGG" 

PRINT "J PRESS "RETURN' WHEN READY TO CONTINUE"; 

INPUT O$ 

PRINT "JDO YOU WANT TITLES CENTERED (Y/N) № 

INPUT I$ 

IF I$<>"Y" AND I$<>"N" THEN 1010 

2-32 

РАСЕ 67: 

IF I$z"N" THEN 1210 

FOR 121 TO 3 
GO TO 1#(1:1)+2#(1:2)+3#(1-3) OF 1090,1110,1130 
D$=F $ 
GO TO 1140 
D$=G$ 
GO TO 1140 
D$=H$ 
X3=36-LEN(D$)/2 
FOR 1121 TO X3 


“TEKTRONIX 4051 PROGRAM 


Les АЕЗТААСТ МО 


ENHANCED PIE CHEST 51/07-953° T3 


162 PRINT é2:" "; 


1170 NEXT 11 
1180 PRINT 62:05 
1199 NEXT I 


1200 GO TO 1242 

1210 PRINT 62:Е$ 

1220 PRINT 62:6$ 

1230 PRINT €2:H$ 

1240 Wz1/((We-E1)/100) 
1250 Е1=Е 1/100 

1260 WINDOW -W,W,-W,W 


1279 REM TELL 4662 TO SCALE CHARACTERS 
1280 VIEWPORT 25,125,0,100 

1290 REM FIND % 

1300 P(1)=9 

1310 FOR Iz2 TO N«1 

1329 P(I)=D(I-1)/S+P (1-1) 

1330 NEXT I 


1340 REM DRAW REST OF SECTIONS 


1350 FOR 121 TO N 


1369 IF N1=99 THEN 1380 

1370 ТЕ N1<>I THEN 1430 

1380 W3=360*((P (1+1)-P(1))/2+P(1))+180 

1390 X=E1*SIN(W3) 

1400 Y=E1#COS(W3) 

1410 REM SHIFT WINDOW FOR SECTOR BEING SEGREGATED 
1420 WINDOW -W+X,W+X,-W+Y,W+Y 

1430 MOVE 62:0,0 
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PAGEND 59 


TITLE ABSTRACT МО 


ENHANCED PIE CHAPT 51/07-9539/0 


1442 E=360%P (1+1) 

1452 X=SIN(2) 

1469 Y=COS(E) 

1475 DRAW 62:X,Y 

1489 | В1-Е 

1499 FOR J=E TO 360*P(I) STEP -5 
1500 DRAW 62:5ІК(2),С05(4) 
1510 NEXT J 

1522 B2=J 

1530 DRAW 62:SIN(360*P(I)),COS(360*P(I)) 
1540 DRAW 62:0,0 

1550 Х=360#%((Р(1+1)-Р(1))/2+Р(І)) 
1569 Y=X 

1579 IF P9=3 THEN 2240 

1589 REMARK * POSITION CURSOR FOR SEGMENT TEXT 
1595 B$=SEG(A$,(I-1)#25+1,25) 
1600 L=POS(B$," ",1) 

1610 IF L>O THEN 1630 

1620 L=25 

1630 B$=SEG(B$,1,L) 

1640 PRINT "GGG" 

1650 WINDOW 0,130,0,100 

1660 POINTER X1,Y1,2$ 

1670 MOVE 62:X1,Y1 

1680 X3=X1 

1690 IF S$="%" THEN 1710 

1700 B$=B$&S$ 

1710 IF V$="V" THEN 1790 

1720 N$=STR(D(I)/S#100) 

1730 L=LEN(N$) 

1740 IF L<=5 THEN 1770 

1750 N$=SEG(N$,2,5) 

1760 GO TO 1820 


1770 N$=SEG(N$,2,L-1) 
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PAGENO °: 


ABSTRACT NO 


ENHANCED PIE CHAPT 


51/07-9539/0 


Ge TE ЛЕО 


1799 P1=POS(Y¢," ",Ре) 

1855 N$=SEG(Y$,Pc,P1-PZ) 

1815 Ре=Р1+1 

1825 B$-B$&NS 

1830 IF SgO"£" THEN 1850 
1840 В5-В%45% 

1859 IF LEN(E£)fe«2130-X1 THEN 2119 
1862 P6=1 

1879 00-0 

1825 P7=POS(B2," ",PÓ) 

1892 IF P7>) THEN 1910 

1999 P7=LEN(B$)+1 

191) W$zSEG(B$,P6,PT-P641) 
1925 IF LEN(W$)#2<=130-X3 THEN 2050 
1930 IF X3=X1 THEN 2010 

1949 PRINT 62:"Ј"; 

1959 FOR 16=1 TO 00 

1969 PRINT 6Z:"H"; 

1970 NEXT I6 

1980 Q0-0 

1995 X3=X1 

2000 GO TO 1920 

2010 FOR 16:1 TO LEN(W$)*2-X1 
2020 PRINT @Z:"H"; 

2030 NEXT 16 

2040 INPUT 632, 24:Х1, У1 

2050 PRINT 62:W$; 

2060 P6=P7+1 

2070 X3=X3+LEN(W$)*2 

2080 Q0=Q0+LEN(W$) 

2090 IF P6=>LEN(B$) THEN 2120 
2100 GO TO 1880 

2110 PRINT 62:8% 

2120 IF N1<>I THEN 2150 


WINDOW -W+E1#SIN(W3) „Н+Е 1#SIN(W3) ,-W+E 1#COS(W3) ,W+E 1®COS(W3) 


000-6405-02 | | TEKTRONIX 4051 PROGRAM 


PAGE МО: 52 
TEE ABSTRACT KZ 


ENHANCED PIE CHART 51/07-9539/0 


2142 GO Te zate 

2159 WINDOW -W,W,-W,W 
gli? IF PS=1 THEN 2240 
21790. B3=(B1-B2)/2 

2152 X1=SIN(B2+B3) 

2192 Ү1=С05(В2+23) 

2222 PRINT "GGG" 

2219 POINTER Хе, Ya 24 
2242 MOVE 62:Xe2,Ye 

2230 DRAW 62:X1,Y1 

2249 IF N1=99 THEN 2265 
2252 IF N1<>I THEN 2282 
2252 REM RESTORE WINDOW 
2270 WINDOW -W,W,-W,W 


2285 NEXT I 

2290 COPY 

2300 MOVE 62:-2,-1.2 
2310 RETURN 
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PAGE NO. 52 
Trek АЕЗТВАСТ NI 


ЕКЧАЧСЕТ DIE CHART 51/07-9539/0 


100 REMAR: *** PLOT ТО PLOTI=F "ӨРІССЕК/РІСІ4662" 51/97-9239/5 


110 PAGL 

120 DELETE H1,V1,X7,Y7 

139.221 

140 DIM H1(10) ,V1(10) ,X7(15) , YT (10) 
155 FOR Iert-I2-d3 


160 H1(I)=9 
170 V1(I)=9 
189 X7(1)=9 
192 Y7(I)=9 
200 NEXT I 


210 VIEWPORT 0,150,0, 100 

220 WINDOW 0, 150,0, 100 

230 IF фа" " THEN 250 

¿40 PRINT "YOU HAVE SELECTED ONE-COLOR PLOT" 

250 PRINT "JJMOVE PEN TO LOWER LEFT CORNER OF YOUR PLOTTING PAPERGG" 
260 PRINT "GG PRESS `ВЕТОВМ' KEY WHEN READY "; 

270 INPUT O$ 

280 INPUT 62,24:Х1,71 

290 PRINT 62:"G"; 

300 PRINT "JMOVE PEN TO UPPER RIGHT CORNER OF YOUR PLOTTING PAPERGG" 
310 PRINT "GG PRESS “RETURN! KEY WHEN READY "; 

320 INPUT O$ 

330 INPUT 62,24:X2, Уг 

340 PRINT 62:"G"; 

350 PRINT "GGGGPLOTTING PEN WILL BE MOVED TO TRACE THE BOUNDARY OF" 
360 PRINT "YOUR PLOTTING AREA" 

370 PRINT "GGGG WATCH THE PEN NOW GGGG" 

380 FOR J=1 TO 25 

390 NEXT J 

400 MOVE 6Z:X1,Y1 

410 PRINT 62:"G"; 

420 MOVE 62:Х1,Ү2 

430 PRINT 62:"G"; 
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РАСЕ МО 5“ 
TITLE ABSTRACT ND 


ENHANCED PIE CHART 51/07-9539/0 


MOVE Ez:X<,Y< 

PRINT €2:"G"; 

MOVE 62:Х2,Ү1 

PRINT €Z:"G"; 

MOVE 62:X1,Y1 

PRINT "GG DO YOU WISH TO CHANGE PLOTTING AREA (Y/N) :"; 
INPUT 1$ 

IF ISO "Y" AND I$<>"N" THEN 492 

IF I$-"Y" THEN 250 

XazXe-X1 

VIEWPORT Х1,Х2,Ү1,Ү2 

WINDOW 0,X4,0,Ye-Y? 

IF F$<>" " THEN 609 

IF 0607" М THEN 690 

IF H$<>" " THEN 600 

GO TO 1120 

PRINT "JSPECIFY WIDTH AND HEIGHT OF LETTERS FOR THE TITLE" 
PRINT "ENTER WIDTH (STANDARD IS 1.75) "; 
INPUT W$ 

IF W$z"" THEN 660 

W1=VAL(W$) 

IF W1>0 THEN 689 

W1=1.75 

PRINT "STANDARD WIDTH WILL BE USED" 
PRINT "ENTER HEIGHT (STANDARD IS 2.85) "; 
INPUT W$ 

IF W$="" THEN 730 

HzVAL(W$) 

IF H»0 THEN 750 

Hz2.85 

PRINT "STANDARD HEIGHT WILL BE USED" 


REMARK CHECK SCALING FACTORS 


IF LEN(F$)=>LEN(G$) THEN 800 
IF LEN(H$)=>LEN(G$) THEN 810 
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РАСЕ МО Ez 
TUE ABSTRACT 


ENUENCED PIE CHADT ар 


780 LeLEN(GS) 

795 GO TO 849 

895 IF LEN(F$)=>LEN(H$) THEN 830 
810 L=LEN(H$) 

820 GO TO 849 

830 L=LEN(F$) 

849 X9=(X2-X1)/L 

£52 Н2-Х9%2.85/1.75 

860 IF X9=>W1 THEN 880 

870 W1=X9 

885 IF H9=>H THEN 900 

855 Н-89 

990 PRINT 62,17:W1,H 

910 PRINT "GDO YOU WANT TITLES CENTERED (Y/N) 2; 
920 INPUT I$ 

930 IF I$O"Y" AND I$<>"N" THEN 910 
940 IF I$="N" THEN 1050 

950 X3=(X4-LEN(F$)*W1)/2 

960 MOVE 62:X3, Y2-(H+0.5) 
970 PRINT 62:Ғ% 

980 X3=(X4-LEN(G$)*W1)/2 

990 MOVE 62:Х3,У2-(Н+0.5)*2 
1000 PRINT 62:G$ 

1910 X3z (X4 -LEN(H$) #01) /2 
1020 MOVE 62:X3, Y2-(H40.5)*3 
1030 PRINT 62:H$ 

1040 GO TO 1110 

1050 MOVE 62:0, Y2-(H+0.5) 
1060 PRINT 62:F$ 

1070 MOVE 62:0,Y2-(H«0.5)*2 
1080 PRINT 62:65 

1090 MOVE 62:0,Y2-(H«0.5)*3 
1100 PRINT 62:H$ 


1110 PAGE 
1120 PRINT "JSEGMENT TEXT AND VALUES MAY BE :" 
1130 PRINT" 1 -- PRINTED WITHIN THE SEGMENT" 
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үт С 
TITLE 
-- 


РАСЕ МО 56 
ABSTRACT МО 


ENHANCED PIE CHART 51/87= 953870 


1140 
1159 
1165 
1175 
1189 
1199 
1202 
1210 
1245 
1235 
1245 
1259 
1260 
1275 
1289 
1295 
1300 
1310 
1320 
1339 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
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т" 2 =-= PRiNTzi OUTSIDE THE SEGMENT WITE А POINTER" 
PRINT" 3 =- NOT PRINTED" 

РАГУ AGSELECT ОРТТО м То 9, OR ат") 

INPUT P$ 

PO=VAL(P?) 

IF Р9»0 AND Р9<-3 THEN 1220 

PRINT "GINVALID RESPONSE -- RE-ENTER "; 

со TO 1172 

IF P923 THEN 1459 

PRINT "JENTZR SYMBOL (%,7,...) FOR VALUES: "; 

INPUT Ss 

IF LEN(S$)<=1 THEN 1280 

PRINT "ONLY FIRST CHARACTER OF SYMBOL WILL BE PRINTED" 
Stes roles T, 13 

PRINT "JUSE VALUES INPUT (V), OR COMPUTED PERCENTAGE (P)? "; 
INPUT V¢ 

IF V$="V" THEN 1439 

IF V$="P" THEN 1340 

PRINT "GINVALID RESPONSE =- RE-ENTER "; 

GO TO 1290 

PRINT "GJHOw MANY DECIMAL PLACES FOR THE COMPUTED PERCENTAGE "; 
INPUT M$ 

IF M$<>"" THEN 1392 

PRINT "JPERCENTAGE WILL BE PRINTED TO 2 DECIMAL PLACES" 
GO TO 1430 

M1zVAL(M$) 

IF M1<6 THEN 1430 

PRINT "GMAXIMUM OF 5 DECIMAL PLACES WILL BE PRINTED" 

M1=5 

VIEWPORT 0,150,0,100 

WINDOW 0,150,0, 100 

IF P9=3 THEN 1610 

PRINT "JSPECIFY WIDTH AND HEIGHT OF LETTERS FOR PIE SEGMENT TEXT " 
PRINT "ENTER WIDTH (STANDARD IS 1.75) "; 

INPUT W$ 

IF W$z"" THEN 1520 
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ТІЗШЕ 


РАСЕ МО 57 


ABSTRATT МІ 


ENHANCED PIE CHART 51/07-9539/0 


1500 
1515 
1529 
1530 
1549 
1559 
1560 
1572 
1589 
1599 
1609 
1610 
1620 
1630 
1640 
1659 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
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W1=VAL 


(wš ` 
IF W1»2 THEN 1542 
W1=1.75 
PRINT "GSTANDARD WIDTH WILL BE USED" 
PRINT "ENTER HEIGHT (STANDARD IS 2.85) "; 
INPUT We 
IF W$="" THEN 1599 
H=VAL(WS 
IF H»0 THEN 1610 
H=2.85 
PRINT "GSTANDART HEIGHT WILL BE USED" 
W2=100 
PRINT "JALL SEGMENTS MAY BE SEPARATED OR A SINGLE SEGMENT MAY " 
PRINT "SEPARATED FROM THE REST" 
PRINT "JSEGMENT SEPARATION OPTIONS ARE :-" 
PRINT" 0 -- NO SEPARATION" 
PRINT" n -- VALID SEGMENT NUMBEP" 
PRINT" A -- ALL SEGEMNT TO BE SEPARATED" 
PRINT "JENTER SEGMENT SEPARATION OPTION (0/n/A) "; 


INPUT 


25 


IF Z$<>"" THEN 1730 


PRINT 
GO TO 
E1=20 


"GINVALID RESPONSE " 
1680 


IF Z$<>"A" THEN 1780 


PRINT 
PRINT 
GO TO 


"GA MAXIMUM OF 5% SEGMENT SEPARATION IS RECOMMENDED" 
"FOR SEGMENTS EXPLOSION (OPTION A)" 
1850 


IF ASC(Z$)>47 OR ASC(Z$)<58 THEN 1800 


GO TO 


1710 


N1=VAL(Z$) 


IF К1- 


0 THEN 1940 


IF N1<=N THEN 1860 


PRINT 
GO TO 
N 1299 


"GATTEMPTING TO SEPARATE A NON-EXISTENT SEGMENT" 
1680 
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Tree 


PAGEND 58 
ABSTRACT N. 


ENHANCED PIE CHART 51/07-9539/0 


1862 
ста) 
1889 
1899 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1979 
1989 
1992 
2000 
2010 
2020 
2039 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
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PRINT "JENTER & ОГ SEPARATION - (RECOMMENDED МАУ : 20) "; 
INPUT £1 
IF E1>0 THEN 1912 
PRINT " 'Q' IS NOT A VALID VALUE -- RE-ENTER "; 
GO TO 1870 
[Е El<=20 THEN 1940 
PRINT "GSEPARATION OF MORE THAN 20% MAY CAUSE LOSS OF " 
PRINT " CORRELATION BETWEEN SEGMENTS" 
Lei 
PAGE 62: 
B7=X1 
B8zX2 
ETzO 
E8=5 
C$=CHR(95) 
PRINT "GJPOSITION PEN AT INTENDED CENTER OF YOUR PIEHHHHHHHHHHHH"; 
FOR C1=1 TO 30 
PRINT "HHHHHHCENTERHHHHHH";C$;C$;C$;C$;C$;C$;"G"; 
NEXT C1 
PRINT 
PRINT " PRESS `RETURN' TO CONTINUE"; 
INPUT O$ 
INPUT @Z,24:X0, YO 
PRINT #7:"С"; 
PRINT "GJPOSITION PEN AT INTENDED TOP OF YOUR PIEHHHHHHHHHHHH"; 
FOR C1=1 TO 30 
PRINT "HHHTOPHHH";C$;C$;C$;"G"; 
NEXT C1 
PRINT 
PRINT " PRESS "RETURN' TO CONTINUE" 
INPUT O$ 
INPUT €Z,24:X6,Y6 
Y5zY6-(X2-X1)*100/150 
RzY6-YO 
IF Y5=>Y1 THEN 2700 
IF X2-X1>Y2-Y1 THEN 2230 
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Tet 


PAGE МО. 55 
ABSTRACT ho 


ENHANCED PIE CHART 51707-952875 


--«0 
2239 
2240 
2250 


2269 


2219 
2289 
2299 
2309 
2310 
2320 
2339 
2349 
2359 
2360 
2370 
2389 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
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GC TO 2515 
X5=X6-2%L 

IF Y5>Y1 THEN 2269 
Y5=Y1 


REM SHRINK IN THE X-AXIS 


X= (Y6-Y5)#150/100 

Х1-Х0-Х/2 

Х2-Х0-Х/2 

59:92 

[9212 

GO TO 1*(X1<=B7)+2*(X2=>B8) OF 2340,2380 

GO TO 2479 

S9=S9+1 

X1=F9/S9 

Х2=Х1+Х 

GO TO 2410 

59=59+1 

X2zB8-F9/59 

Х1-Х2-Х 

IF P9«»2 THEN 2470 

IF S9<4 THEN 2320 

PRINT "GGTHERE'S NO ROOM ON THE SIDES OF YOUR PIECHART FOR" 
PRINT "SEGMENT LABELS AND VALUES TO BE PRINTEDGGGG" 
PRINT "RE-SELECT CENTER AND TOP OF PIE" 

GO TO 2010 

Y5=Y6-(X2-X1)*100/150 

E7=X1 

Е8-Х2 

GO TO 2700 

PRINT "THE BOTTOM PART OF YOUR PIE WILL BE OFF THE PAGE" 
PRINT "IF DRAWN WITH YOUR SPECIFIED CENTER AND RADIUSGG" 
PRINT "YOU MAY PROCEED FURTHER WITH ONE OF FOLLOW ING OPTIONS" 
PRINT " 1. KEEP CENTER AS SPECIFIED & REDUCE RADIUS" 
PRINT " 2. MOVE CENTER AND KEEP RADIUS AS SPECIFIED" 
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PAGENO 62 
ТЕ ABSTRACT NZ 


ENHANCED PIE CHART 51/07-9539/0 


2565 PRINT " JSELECT OPTION 1, OF 2 : "; 
2570 INFPSI C 

2589 GO TO C OF 2600,2630 

2592 GO TO 2560 

2600 Y6zY6-(Y1-Y5) 

2610 Y5=Y1 

2620 GO TO 2755 

2630 Y6=Y1+2%R 

2640 Y5=Y1 

2650 MOVE 62:X6,Y6 

2660 PRINT "PEN IS NO NOW AT TOP OF PIE . IS IT OK? (Y/N):"; 
2670 INPUT R$ 

2689 GO TO 1*(R$="N")+2*(R$="Y") OF 1950,2626 
2692 GO TO 2665 


2700 REM *** ADJUST Y-CORDINATE OF LOWER LEFT OF PIE AREA FOR A 
2710 REM *** PERFECT CIRCLE 


2720 Riz(Xe-X1-(Y6-Y5))/2 

2730 PRINT "GGGG PLOTTING PEN WILL BE MOVED TO TRACE THE BOUNDARY" 
2730 PRINT " OF THE AREA WITHIN WHICH THE PIECHART WILL BE DRAWN" 
2750 PRINT "GGGG WATCH THE PLOTTER PEN NOW GGGG" 

2760 FOR J=1 TO 25 

2770 NEXT J 

2780 MOVE 62:Х1+81, Y5 

2790 PRINT 62:"G"; 

2800 MOVE 62:X1«R1, Y6 

2810 PRINT 62:"0"; 

2820 MOVE 62:Xe-R1, Y6 

2830 PRINT 6Z:"G"; 

2840 MOVE 62:X2-R1,Y5 

2850 PRINT @Z:"G"; 

2860 MOVE @Z:X14R1, Y5 

2870 PRINT "GGGDO YOU WISH TO CHANGE PIECHART AREA? (Y/N) :"; 
2880 INPUT I$ | 
2890 IF I$O"Y" AND I$<>"N" THEN 2870 
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PAGE NO. 61 
ABSTRACT NO 


ENHANCED PIE CHART 51/07-9539/0 


2900 IF I$="Y" THEN 2010 

2910 Riz(Xe-X1-(Y6-Y5))/2 

2920 VIEWPORT X1+R1,X2-R1,Y5, МЕ 
2930 W=1/((W2-E1)/100) 

2940 E1=E1/100 

2950 WINDOW -W,W,-W,W 


2962 REM TELL 4662 TO SCALE CHARACTERS 
2970 REM FIND % 


980 P(1)=0 

2990 FOR I=2 TO N+1 

3000 P(I)=D(I-1)/S+P(I-1) 
3010 NEXT I 

3020 REM DRAw REST OF SECTIONS 


3030 FOR I=1 ТО N 


3040 IF U$-"U" THEN 3070 

3050 PRINT "GCOLOR CHANGE FOR NEXT SEGMENT-- PRESS 'RETURN' WHEN READ]"; 
3060 INPUT O$ 

3079 IF N1-99 THEN 3090 

3080 IF N1<>I THEN 3160 

3090 W3=360"( (Р(1+1)-Р(1))/2+Р (1) )+180 

3100 X=E1*SIN(W3) 

3110 Y=E1*COS(W3) 

3120 REM SHIFT WINDOW FOR SECTOR BEING SEGREGATED 
3130 WINDOW -W+X,W+X,-W+Y,W+Y 

3140 X7(1)=X 

3150 Y7(I)=Y 

3160 MOVE 62:0,0 

3170 E=360#P(I+1) 

3180 X=SIN(E) 

3190 Y=COS(E) 
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PAGENO 62 


THe ABSTRACT МО 


ENHANCED PIE CHART 51707-95397; 


3299 IF I<>N THEN 3259 

3219 IF №1=1 THEN 3259 

3229 IF №1=99 ОК N1=1 THEN 3259 
3230 . MOVE 67:АТ, Аг 

3240 GO TO 3262 

3255 DRAW 62:X,Y 

3260 B1=E 

Se FOR дзё ТО 360%P (I) STEP -2.5 
3280 DRAW 6Z:SIN(J),COS(J) 
3290 NEXT J 

3300 B2zJ 

3310 DRAW @Z:SIN(360*P(I)) ,COS(360*P(I)) 
3329 DRAW 62:90, 0 

3339 IF 191 THEN 3360 

3349 A1=SIN(360*P(I)) 

3350 Az=COS(360*P(I)) 

3360 X=360*((P (1+1)-P(1))/2+P(1)) 
3370 Y=X 

3380 B3=(B1-B2)/2 

3390 H1(I)=SIN(B2+B3) 

3400 V1(1)=COS(B2+B3) 

3410 IF М1-99 THEN 3430 

3420 IF N1<>I THEN 3450 

3430 REM RESTORE WINDOW 

3440 WINDOW -W,W,-W,W 

3450 NEXT I 


3460 IF Р9-3 THEN 5660 
3470 REMARK * ADJUST SCALE FOR SEGMENT TEXT AND VALUE 


3480 X9=(X2-X1)/70 

3490 IF X9=>W1 THEN 3530 
3500 IF H<=2.85 THEN 3520 
3510 H=(X2-X1)/70*2.85/1.75 
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ENHANCED PIE CHART 51/07-9530/2 


000-6405-02 


W1=X9 
PRINT 62,17:W1,H 


REMARK SEGMENT TEXT AND VALUES PRINTING 


O PRINT 62,17:W1*W2/100,H*w2/100 


PRINT "GLSEGMENT TEXT AND VALUES WILL NOW BE PRINTED" 


9 PRINT "GGGHAVING COME THIS FAR І AM SURE YOU DON'T WANT" 


PRINT "TO MESS UP YOUR CHART SO PLEASE FOLLOW INSTRUCTIONS" 
PRINT "ON THE SCREEN CLOSELY GGGG" 


0 IF Р9»1 THEN 3639 


L$="WITHIN" 
GO TO 3649 
L$="OUTSIDE" 
PRINT "SEGMENT LABELS WILL BE PRINTED "; ;L$;" THE SEGMENTS" 
PRINT "JJSEGMENTS ARE NUMBERED FROM 1 TO ";N;" STARTING FROM" 
PRINT "THE 12 O'CLOCK POSITION AND COUNTING CLOCKWISE" 
22-1 
FOR І-1 TO N 

B$=SEG(A$,(I-1)#25+1,25) 

L=POS(B$," ",1) 

IF L>O THEN 3740 

B$-B$&" " 

L=26 

B$=SEG(B$,1,L) 

IF S$="%" THEN 3770 

В%-В%45% 

IF V$="P" THEN 3820 

Z1=POS(Y$," ",22) 

N$-SEG(Y$,22,21-22) 

Z2=Z 1+1 

GO TO 4030 

N9=D(1)/S*100 

GO TO M1+1 OF 3840, 3860, 3880, 3900, 3920, 3940 

N9=N9+0.5 

GO TO 3950 
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РАСЕ МО 64 
ABSTRACT МС 


N9zN9«2.05 

GO TO 3950 

№9=№9+0.005 

GO TO 3950 
N9zN9«5.0E-4 

GO TO 3959 
N9=N9+5.0E-5 

GO TO 3952 
М9-М9-5.0ь-6 
N$=STR(NQ) 
LzPOS(N$,".",1) 

IF M1<>0 THEN 4000 
N$=SEG(N$, 1, L-1) 

GO TO 4920 

IF LEN(N$)-L<=M1 THEN 4020 
N$=SEG(N$, 1,L+M1) 
N$=SEG(N$, г, LEN(N$)-1) 


B$=B$&N$ 
IF 5$<>"Ф" THEN 4060 


B$=B$&S$ 
L=LEN(B$) 
MOVE 62:H1(I),V1(I) 
PRINT "JGPEN POSITION INDICATES MID-POINT OF ARC FOR" 
PRINT "SEGMENT ";I;". USE IT AS A GUIDE TO POSITION" 
PRINT "PEN FOR SEGMENT LABEL ";L; 
PRINT " CHARACTERS LONG" 
PRINT "G PRESS "RETURN! WHEN READY"; 
INPUT O$ 
VIEWPORT X1,X2,Y1,Y2 
WINDOW 0,X2-X1,0, Y2-Y1 
GIN 62:X9, Y9 
Х8-Х2-Х9-Х1 
IF X8>(X2-X1)/2 THEN 4820 
IF X8=>L*W1 THEN 4990 
FOR 1121 TO LEN(B$)-INT(X8/W1) 
PRINT @Z:"H"; 
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4229 NEXT 11 

4230 PRINT "GPEN'S BEEN POSITIONED TO FIT LABEL Oh 1 LINEG" 
4240 PRINT "OK TO PRINT? (Y?N) "; 

4250 INPUT I$ 

4260 ТЕ I$O"Y" AND I$<>"N" THEN 4240 

4279 IF I$="Y" THEN 4999 

4289 13-0 

4292 Xgz"" 

4300 Р2=1 

4310 P1=POS(B$," ",P2) 

4320 ТЕ Р1>2 THEN 4379 

4339 Р 12LEN(B$) 

4349 IF P1-P2+1<LEN(X$) THEN 4430 

4350 W$=SEG(B$,P2,P1-P2+1) 

4360 GO TO 4430 

4370 T$=SEG(B$,P2,P1-P2+1) 

4380 Р2=Р1+1 

4399 13=13+1 

4400 IF LEN(X$)>LEN(T$) ТНЕМ 4310 

4410 X$=T$ 

4420 GO TO 4310 

4430 IF X$=B$ THEN 5370 

4440 FOR 11=1 ТО LEN(B$)-LEN(X$) 

4450 PRINT 62:" "; 

4460 NEXT 11 

4470 PRINT "GPEN'S BEEN POSITIONED TO PRINT SEGMENT LABEL ON "; 
4480 PRINT "MULTIPLE LINES." 

4490 PRINT "GIF OK TO PRINT PRESS ^RETURN' " 

4500 PRINT "GIF NOT, REPOSITION PEN AND PRESS ^RETURN' "; 
4510 INPUT O$ 

4520 GIN @Z:X9, Y9 

4530 IF LEN(X$)*W1«X2-X9-X1 THEN 4630 

1510 PRINT "GGLONGEST “WORD! IN LABEL WILL NOT FIT INTO AVAILABLE"; 
4550 PRINT " SPACE" 

4560 PRINT "GMOVE PEN BACK AND ENTER ^Y'" 

4570 PRINT "GGG OR" 
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4589 
4590 
4600 


4610 . 


4620 
4630 
4642 
4659 
4660 
4679 
4585 
4699 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 


ТЫМ САПЕ 02 


PRINT "GENTER ON? "; 
INPUT I$ 
IF I¢g<>"y" AND I$<>"N" THEN 4560 
IF I$z"Y" THEN 4520 
GO TO 5379 
11-9 
Р2-1 
FOR І1-1 ТО 1341 
P1zPOS(B$," ",Ра) 
IF P1>0 THEN 4690 
P1=LEN(B$) 
Т%-5ЕС(Б%,Р2,Р1-Р2-1) 
Р2-Р1-1 
GIN 62:Х9, 79 
IF X2-X9-X1=>LEN(T$)#W1 THEN 4780 
PRINT 62:"Ј"; 
FOR 1221 TO L1 
PRINT @Z:"H"; 
NEXT I2 
L1=9 
PRINT €Z:T$; 
L1=L1+LEN(T$) 
NEXT 11 
GO TO 5510 
FOR 12=1 TO LEN(B$) 
PRINT 62:" "; 
NEXT 12 
PRINT "GPEN POSITION INDICATES WHERE SEGMENT LABEL WILL END" 
PRINT "WHEN PRINTED ON 1 LINE." 


PRINT " ENTER :I`P' TO PRINTIIII'M' TO PRINT ON MULTIPLE LINH"; 
PRINT "SIII`R' TO REPOSITION PEN MANUALLY "; 55 
INPUT I$ 


GO TO 1*(I$="P")+2*(I$="M")+3*(I$="R") OF 4960,5010,4930 
PRINT "GINVALID RESPONSE -- RE-ENTER "; 

GO TO 4890 

PRINT "GREPOSITION PEN AND PRESS "RETURN' "; 
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TITLE 


PAGE МО: 67 
ABSTRACT №7 


ENHANCED PIE СНАРТ 51/07-9539/0 
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INPUT O8 
GO TO 4160 
FOR 12=1 TO LEN(B$) 
PRINT 62:"Н"; 
NEXT 12 
PRINT 62:85; 
GO TO 5510 
PRINT "GBEFORE EACH `WORD' IN SEGMENT LABEL IS PRINTED, THE" 
PRINT "PEN WILL BE POSITIONED TO INDICATE WHERE THE `WORD' " 
PRINT "WILL END WHEN PRINTED. YOU WILL BE REQUIRED TO INDICATE" 
PRINT "ЈЕ ^WORD' SHOULD BE PRINTED ON THE CURRENT LINE OR PEN" 
PRINT "SHOULD SKIP DOWN TO THE BEGINNING OF NEXT LINE" 
FOR І2-1 TO LEN(BS) 
PRINT 62:"H"; 
NEXT Іг 
Р2-1 
11-0 
Р1-Р05(В%," ",P2) 
IF P1>0 THEN 5140 
Р 1=LEN(B$) 
T$=SEG(B$,P2,P1-P2+1) 
FOR I2=1 TO LEN(T$) 
PRINT 62:" "; 
NEXT I2 
PRINT "GOK TO PRINT (Y/N)? "5; 
INPUT I$ 
IF I$<>"Y" AND I$<>"N" THEN 5180 
IF I$="N" THEN 5260 
FOR I2=1 TO LEN(T$) 
PRINT @Z:"H"; 
NEXT I2 
GO TO 5320 
PRINT @Z:"J"; 
FOR І2-1 TO L1+LEN(T$) 
PRINT @2:"Н"; 
NEXT I2 
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305 (129 
5312 GO TO 5159 
5325 PRINT 62:78; 
5330 L1=L1+LEN(T$) 
5345 IF P1=LEN(B$) THEN 5510 
5359 Р2=Р 1+1 
5360 GO TO 5110 
5379 PRINT "GONLY "SINT((X2-X9-X1)/W1);" CHARACTERS WILL FIT" 
5382 PRINT "INTO AVAILABLE SPACE" 
5399 PRINT "RE-ENTER SEGMENT LABEL, INSERTING A DASH `-' AND ONE " 
5400 PRINT "BLANK WHEREVER YOU WISH TO BREAK ТО А NEW LINEGG" 
5410 PRINT "JLABEL TO BE PRINTED IS: ";B$ 
5429 DELETE ВЗ 
5430 INPUT B$ 
5440 I320 
5459 Р2-1 
5469 Р1=РО5(В$," " Pa) 
5470 IF P1=0 THEN 4630 
5480 P2=P1+1 
5490 13=13+1 
5500 GO TO 5460 
5510 IF P9=1 THEN 5550 
5520 PRINT "GPOSITION PEN FOR LABEL===>SEGMENT POINTER " 
5530 PRINT " PRESS "RETURN' WHEN READYG"; 
5540 INPUT O$ 
5550 IF E8=0 THEN 5589 


5560 X1=E7 
5570 Хг=Е8 


5580 VIEWPORT X1+R1,X2-R1,Y5, Y6 

5590 IF М1:99 OR М1-І THEN 5620 

5600 WINDOW -W,W,-W,W 

5610 GO TO 5630 

5620 WINDOW -W+X7(I),W+X7(I),-W+Y7(I),W+Y7(1) 
5630 IF P9=1 THEN 5650 

5640 DRAW @2:Н1(1),у1(1) 

5650 NEXT I 
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5660 RETURN 
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100 REMARK XXX SAVE PLOT DATA "@PIECHR/SAVLPLOT" 51/27-9539/2 


110 PRINT "LDO YOU WANT CHART SAVED ON DISK OR TAPE? (D/T) :"; 
120 INPUT M$ 

130 M$=SEG(M$, 1,1) 

140 GO TO 1*®(M$="T" )+28(M$="D")4+38(M$="") OF 199,260,179 
150 PRINT "GINVALID RESPONSE -- RE-ENTER "; 

160 GO TO 120 

170 PRINT "GJYOUR CHART WILL NOT BE SAVED" 

180 RETURN 

190 IF Z8=0 THEN 210 

200 PRINT "JJTHIS DATA WAS READ FROM FILE ";28 

210 PRINT "JJINSERT TAPE AND ENTER FILE NUMBER TO SAVE CHART "; 
220 INPUT Z8 

230 FIND Z8 

240 WRITE @33:A$,F$%,G$,H$,D,N,S, Y$ 

250 RETURN 

260 IF J$="" THEN 290 

270 J$=SEG(J$,9,LEN(J$)-8) 

280 PRINT "JTHIS DATA WAS READ FROM FILE - ";J$ 

290 PRINT "JUSER NAME AND FILE ARE LIMITED TO 10 CHARACTERS" 
300 PRINT "ENTER (User name/File name) ? "; 

310 INPUT J$ | 

320 J$="@PIECHR/"&J$ 

330 CALL "FILE" ,0,J$,Z$ 

340 IF Z$<>"" THEN 360 

350 CREATE Ј%;1000,0 

360 OPEN J$;1,"F",Z$ 

370 WRITE #1:A$,F$,G$,H$,D,N,S, Y$ 

380 CLOSE 1 

390 DELETE J$ 

400 PRINT "JJJ PLOT DATA SAVED . . ." 

410 RETURN 
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122 REMARK #** DRAW BOX AROUND PIECHART "EP IZCHR/BORDER" 51/27-9539/2 


nut 
29 PRINT "GMOVE PEN ТО LOWER LEFT CORNEP OF PAGE BORDER" 
РАШКА У PRESS `RETURN' KEY WHEN READYGG"; 
40 INPUT 05 
62,24:Х1,Ү1 
| PRINT 62:"0"; 
; PRINT "JGMOVE PEN TO UPPER RIGHT CORNER OF PAGE BORDER" 
‚ PRINT " PRESS ^RETURN' KEY WHEN READYGG" 
INPJT 0$ 
INPUT 62,24:Х2, 72 
PRINT 62:"G"; 
Х3-Х2-Х1 
Ү3-Ү2-Ү1 
VIEWPORT X1,X2,Y1,Y2 
WINDOW 0,X3,0,Y3 
MOVE 62:0,0 
RDRAW 62:0,Ү3 
RDRAW 62:Х3,0 
RDRAW 62:0,-Ү3 
RDRAW 62:-Х3,0 
PRINT "GJDO YOU WISH TO REPEAT PAGE BORDER (Y/N) ? "; 
INPUT I$ 
IF I$<>"Y" AND I$<>"N" THEN 320 
IF I$-"Y" THEN 280 
VIEWPORT 0,150,0, 100 
WINDOW 0,150,0, 100 
RETURN 
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